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Hi, there gqamesters. Melissa Raven- 
flame, co-ordinator of 1.D.E.A.'s 
Central, here. lf you've been won- 
dering why you copy of Computer + 
Video Games is extra thick this 
month, it’s because it contains our 
latest bumper Book of Games — 32 
fun packed pages of listings. It's all 
yours for absolutely nothin 

Once again I've order the Bug 
Hunters into [.C’s nuclear bomb 
proof security vaults deep beneath 
C+¥VG's offices to search out anoth- 
er selection of readers tapes to test 
out your programming skills and 
give you some fun at the same time. 
Hope you enjoy them as much as we 
enjoyed picking them. 


Yours 





Melissa Ravenflame. 
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Back in the USSR (Spectrum) 
Spies, codes, murder and Moscow 


Rotating Ball (Amiga) 


Put your machine in a spin 


Dome Buggy (Commodore 64) 
Stop your world caving in 
Mega Elite Commander (BBC) 
Improve your game status 


Ultimate Invaders (Commodore) 
Look to the skies 


TRansplex (BBC B) 
Glimpse an invisible enemy 


Pontoon (Commodore 64) 
Make a play with o big deal 


Mastermind (Spectrum | 
Clever colour coded clues 


Rodney the Droid (Commodore 64 ) 
Treasure time trouble 


Slither Sam (Atari) 
Fruity fun for Sam 


Touchdown (Spectrum) 
Ace Spoce Aiese Race e 


Your Magazine Needs You 
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aumon NEIL CLAPPISON 
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SPECTRUM 


You'll see red before you get Back to the USSR and home to Moscow with this unusual game 
from Neil Clappison. 

The idea is quite sips. The computer pretends it has a modem attached and the player 
must somehow book a flight to the Soviet capital. But you'll have to keep your wits about you 
to find the right telephone numbers and codes to do so. But if you remain alert it's not 
impossible. 

Key X can be used at most stages of the game to return to the main menu. UNMB, which is 
printed as option number two of the main menu, stands for User Network Message Board. 

Any telephone number found in the game can be used but not all are necessary to complete 
it. 
“All names and telephone numbers in the game are ficticious, “says Neil,” except John 
Cleese, Andy Hollins and Viking Radio, which I'm a fan of.” 

Because Back to the USSR is a complex game we’ ve printed the solution below. But have a 
go at the game before reading it. 


Back to the USSR — The Solution 
Press any key after the instructions have been read and then hit key 2. This puts the player in 
touch with the User Network Message Board (UNMB). 

Option 1 should be pressed several times until all the news items have been read. Any 
telephone numbers — for example, the Russian Embassy (333-56792) should be written 
down. | 

Now press option 2 and read the advertisements, again making a note of the companies 
and telephone numbers, in particular Hijack Holidays (0001-13526) and Wet Nast (222-39394). 

Press option 6 and return to the main menu. Press 1 and dial the Russian Embassy number. 
Enter the password “Commie.” and note down any telephone numbers. 

Terminate the connection by pressing X and return to the main menu. Now dial the Russian 
police and enter the password “Nick, Nick.” This will list Soviet secret agents and which 
country they are in. The names given are undercover ones. Note down the ones for the UK. 
Return to the main menu. | 

By watching the news you will have noticed that James Gates, believed to be a Russian 
secret policeman, had been murdered. This means your false name is Michael Durham. 

Press 1 and ring Wet Nast Bank, enter the password “Royal Mint” and two screens of 
customers and account numbers will be listed. One of them will be in your name. Note your 
account number. Press X on the second screen. 

Press 1 and dial 001-13526 for Hijack Holidays and enter the password “Ice Cream.” Now 
press 4 to book a flight to Moscow and enter your back account number. 

The game is now completed. 


23 FOR F-USR "A" TO UGR "C"'+ 7s 205 FOR R=0 TO 1001 NEXT FR 
210 PRINT @T 19,18;" ' 


220 PRINT AT 20,12; "DIAL NOW: " 


RAR F=224 OR FH256 OR Frees OR Fes 
20 THEN BEEF .2,55 
45 BEEF .O1,—-25: NEXT F 


READ A: FPOKE F,A: NEXT Fi DATA 


192,240,450, 21,431,460, 249,172, 0, 24 


220 PRINT AT 20,123 "DIAL oon \y ,24,0,0,24,24,0,32,80,32,0,0,0,0 ‘ 47 PAUSE © 
Fm BACK IN THE USSR by ,o q S09 REM SET UP COMPANIES 
by Neil Clappison. 30 RESTORE indi: CLS : PRINT ' “Y 35 CLS 
id POKE 23409,1: POKE 23541,19 N THE STORY SO FAR.....": PRINT © © 6% GO SUB Sono 
: POKE 22562,1: POKE 23458,6 y 40 READ I#: FOR F=1 TO S20: PR ly 70 REM PRINT MENU SCREEN 
20 BORDER O; PAPER 0: CLS : IN & ENT IS(F)33 IF F532 OR F=64 OR F HO GO TO 2100 
a & oo%6 OR F=128 OR F=160 OR F=192 0 : 200 REM DIAL SCREEN 
. ; 
‘ . 


as | 


230 PRINT AT 21,113"¢---/----- * 

240 LET X=12: LET P="" 

250 LET NS=INKEYS 

255 IF Ne="X" THEN 

yi23" Ae 
": BO TO 2100 

260 IF INKEY$="" THEN GO TO 25 


PRINT AT 20 
21,115" 


a 
270 IF CODE N#<48 OR CODE N57 


THEN GO TO 250 
2B0 PRINT -AT 21,X%3N%: LET PS=PS 
4B 


285 BEEP .01,40 
290 LET X=X+1: 
T X=14 

S00 IF X=21 THEN GO TO 400 
SOS FOR R=0 TO 15: NEXT R 

310 GO TO 250 

390 REM CHECK PHONE NUMBERS 
400 FOR Y=0 TO 80: NEXT Y: FOR 


IF X=15 THEN LE 


G=1 TO 2 

403 FOR U=1 TO 2: FOR R=20 TO 2 
2: 5BEEP 7 ODSRS NEAT Ris West iy F 
OR R=O TO SO: NEXT RK 

405 FOR U=i TO 2: FOF R=20 TO 2 
2 BEEP .01 KR: NEXT R: NEXT Us: F 
OR R=O TO 30: NEXT R 

406 FOR R=0 TO 9O: NEXT R 


407 NEXT G 

410 IF P@="223239394" THEN GO T 
QO 3000 

470 IF P$="00113525" THEN GO T 
O 3200 

430 [F Pé="7998HS327" THEN GO T 


0 3500 

440 [F PS="SS 356792" THEN GO T 
O 3/00 

450 [F Ps" 27123453" THEN GO T 
OG 80 : 


440 [FF Pee" 2OTS5sS29" THER GO T 
Oo 42050 


470 IF PR="99942545" THEN GO T 
O 410 

4680 IF Pt="26798334" THEN GO T 
Oo 4200 | 

490 IF P$="04876800" THEN GO T 
0 4300 


9997 GO TO 200 
1000 REM DATA 
1001 DATA "YOU ARE A RUSSIAN AGE 
NT WHO HAD RECENTLY BEEN SENT TO 
BRITAIN TOCATCH A TRAITOR TO YO 
UR COUNTRY. YOU DID THIS SUCCESSF 
ULLY, BUT LOST YOUR WALLET IN T 
HE PROCESS. YOUR WALLET CONTAINED 
YOUR VITALITIES FOR GETTIN 
G HOME,TWO OF THESE WERE YOUR FA 
LSE NAME AND BRITISH BANE ACCO 
UNT NUMBER. YOU MUST NOW RETURN 
TO RUSSIA " 
2000 REM COMPANIES 
2010 LET AS="#*eee4ee2HI TACK WHOL 
IDAYS##### ee 
PASSWORD --- --- 


2020 LET BS="### WETNAST BANK 
### MANAGER FR. SNOB 


SWORTHY ### =FASSWORD -- 


2030 LET C$="%X% 
BASSY % ta fote 

PASSWORD ==-----" 
2040 L RUSSIAN F 


% RUSSIAN EM 


PASSWORD ---- -- 


2050 LET E#="USER NETWORE MESSAG 

E BOARD " : 

2060 RETURN 

2100 FOR R=0 TO 200: 
> REM MENU SCREEN 

2110 PRINT AT 10,12; "SELECT " 

2i20 PRINT TRE (11) 5 °#-#-2#-%-2" 

2130 PRINT ‘TAB (12);"<1> DIAL" 

2140 PRINT ‘TAB (12); "<¢2> UNMB" 


NEXT Rs: CLS 


2150 PRINT AT 10,18;" " 

2160 IF INKEY$="1" THEN 6O TO 2 
oo 

2170 IF INKEY$="2" THEN GO TO 2 
200 





ia st oe tte eT EE REMAP RARAR AR ARAR AAR ARMA MR ERMA Aan ee ee ee ee ee eed 


21380 PRINT AT 10,185" " 

2190 GO TO 2150 
2200 REM USER NETWORK MESSAGE BO 
ARD 


2210 CLS : PRINT ES 
2220 PRINT ‘‘ "MENU" 
2230 PRINT "ss===" 
2240 PRINT ‘"<i> NEWS" 


2250 PRINT ‘"<2> ADVERTISEMENTS" 
2260 PRINT ‘"<3> MESSAGES" 

2270 PRINT ‘'"<4> D.I.Y. TIPS" 
2280 FRINT ‘"<S> KIDS JOKES" 
2290 PRINT ‘'"<6> EXIT" 

2295 PRINT AT 3,4;" " 


2510 IF INKEY$="4" THEN GO TO 2 
400 
2o20 IF INKEY$="2" THEN GO TU 2 
oO 
7a00 IF INKEYS="3" THEN GO TO 2 
600 
2540 IF INKEY$="4" THEN GO TO 2 
FOG 
2oJ0 IF INKEYS="5" THEN GO TO 2 


Bod 

2ooog IF [NKEY$="6" THEN GO TO 4 

999 

2oe0" PRING Ai- 3,43" 

2o/f0 GO TO 2295 

2400 CLS +: PRINT TAB (9)3 "WN = 

W S"; OVER 1sA7 0,93". 

pes tere) toe) a 

2410 LET F#="THERE HAS BEEN AN A 

IR CRASH OVERTHE S&{OUNTAINS OF RL 

SSIA. OVER 100 PEOPLE WER 

E ON BOARD THE TYPE 131 PLANE. 
CASUALTIES 4 DEAD 


if SERI 
OUS INJURIES 83 MINO 
R INJURIES RING RUSSIAN EMEBAS 
SY ON S55-H6792 FOR INFO 


RMATION OF 
SS hy 
2420 LET Gt="A TRIAL IN IRELAND 
HAD BEEN CONSTANTLY INTERRUP 
TED TODAY WITH SCENES OF ROWD 
YISM.AFTER OVER AN HOUR THE JU 
DGE DECLARED ‘THE NEXT PERSON TO 
INTERRUPT THIS TRIAL WILL BE 
THROWN OUT’ AT WHICH THE DEFEND 
ANT STOOD UF AND YELLED ‘HOORAY! 


rol 


FRIENDS OR RELATIV 


20 LET H$="SARAH KEAYS ISSUED 
= MEMOIRS OF HER 2 OTHER SECRET 
LOVERS, FRESIDENT REAGAN & 
MR. GORBACHOVIN THEM SHE TELLS O 
F THE LORRY LOADS OF GRECIAN 206 
oO DELIVERED TO THE WHITEHOUSE A 
ND HOW SHE ACCIDENTLY SPILT RI 
BENA ON GORBACHDY’S HEAD." 
2440 LET J$="AT LAST! A WINNER T 
O THE DAILY MIRROR’S MILLION PO 
UND BINGO. MR.BOR MAXWELL SAID 

HE COULDN’T BELIEVE HIS LUCK!" 
2445 LET Kt="JAMES GATES’ BODY W 
AS FOUND BRUTALLY MURDERED T 
ODAY IN THE STREETS OF LIVERFOO 
Ls THE MURDERER IS UNE 


NOWN AND POLICE ARE INVESTIG 
ATING THE CASE.MR.GATES WAS B 
ELIEVED TO BE WORKING FOR THE 
RUSSTAN SECRET POLICE.” 


2450 LET N=INT (RANDe(S) +1) 


2440 IF N=1 THEN FRINT Fe: PAUS 
EO: 60 TO 2200 
2470 IF N=2 THEN FRINT G8: FAUS 


E Oo: B60 TO 2200 
2480 IF N=3 THEN 
E Oo: GO TO 2200 
2490 IF N=4 THEN 
E Os GO TO 2200 


PRINT Ht: FPAUS 


PRINT J#: PAUS 


7495S PRINT ES: FAUSE O: GO TO 22 
On 

2500 REM ADVERTISEMENTS 

7510 CLS 


2530 PRINT "OLOF’S, THE HOLE WIT 
H THE MINT" 
2540 PRINT ‘ 
ADIO FOR THE 
‘a 

2550 PRINT '*"C 
TEL 221-23453" 


"LISTEN TO VIKING R 


HUG CHUG TAAI'S. 


VERY BEST IN MUSIC, 


—\EO PAPA AEE TAMA AMM MMMM AMAA AMAA MMA AAA AAA AAA A Bn en ee ee ee ee eee 


EE 





2oo0 PRINT "HIJACK 
TEL AGt—Taaer, 
2oa70 PRINT 


HOLIDAYS. 


HAVE A BREAK - 

HAVE A PICKLED ONI 
On iW 

2580 PRINT 
ARVING ####" 
2585 PRINT WETNAST BANK-WE WA 
NT YOUR MONEY. TEL?s222/39394" 
0 


eee FEED THE ST 


"S50 PAUSE O: G&D TO 2700 
7400 REM MESSAGES 
“610 CLS 


2420 FRINT FRED.ITS JOAN, GET 
OFF THAT COMPUTER AND GET M 
AKING MY TEA I°‘Lt BE HOME IN HA 
LF AN HOUR." 
2630 PRINT ‘°"C 


CAN ANYONE TELL ME 
WHAT TO BO lal 


ITH MYSTERIO IN S 


FIDERMAN?" 

2640 PRINT ‘‘“FOR 4 GOOD TIME,PH 
ONE ME ON 29353-55324" 

24650 PRINT ‘“‘"SORD MS FOR SALE.O 
NLY #40. CONTACT NEIL ON O4 


8-746800" 

36450 PRINT °°“ANYONE FOUND MY GO 
LD WATCH? I°M WAITING FOR IT AT 
THE COF SHOP" 


baw 


"670 PAUSE O: GO TO 2200 

2700 REM D.1I.¥. TIPS 

2710 CLS 

2770 PRINT “TODAY WE WILL LEARN 
HOW TO CONNECT ONE THING TO 


ANOTHER. " 
2730 PRINT ‘“HERE IS ONE WAY OF 
DOING THIS.” 


2740 PRINT “THE HAMMER &® NAIL" 
2750 PRINT “PGSITION NAIL POINTE 
D END DOWN ON OBJECT.PLACE THAT 
OBJECT IN YOUR LEFT HAND WHILE 
HOLDING THEOTHER OBJECT IN THE 
RIGHT HAND. FICK UP HAMMER WITH 
YOUR OTHER HAND MEANWHILE HOLDI 


NG BOTH OBJECTS IN POSITION, 
WITH YOUR RIGHT KNEE AND LEFT 

EAR. NOW RAISE HAMMER AT AN A 
NGLE OF 45 ABDVE THE HEAD AND 


VELOCITY OF 1 
H5MMER TO THE H 


BRING DOWN 47 4 
5. DIREC THE 


EAD OF THE NATL THEREFORE INSE 
RTING THE NSIL INTO BOTH THE 
OBJECTS" 

2760 PAUSE O: 6O TO 2200 


2500 CLS : REM KIDS JOKES 


2810 PRINT ‘“WHAT GOES BLACK & W 

HITE,BLACK &® WHITE,BLACK & WHITE 
7h il 

2820 FRINT “& NUN ROLLING DOWN A 
ALE 

2BS0 PRINT “WHY DID PADDY THRO 
W THE BUTTER OUT OF THE WINDOW 

2840 PRINT “BECAUSE HE WANTED TO 
SEE A BUTTERFLY" 


2850 PRINT 
YELLOW, WHAT 


"IF A BUTTERCUP IS 
COLOUR [5 A HICCUP 


SL 

"940 PRINT “BURPLE. " 

"870 PRINT “"“IF A&A MAN WAS BORN 
IN INDIA,LIVEDIN CHINA,WORKED IN 


AMERICA AND DIED IN EUROPE , WHA 
tL LSehe 
2880 PRINT 
[B90 PAUSE O 


S000 REM WE 


EAD." 
GO To 2200 


WAST BANK 


Feo 


3010 CLS : PRINT BS 

S020 LET X=14: LET @$="" 

S030 LET NS=INKEYS 

=O040 IF NS="" THEN GO TO 3030 
sO045 IF N@(ij="X" THEN GO TO 79 
99 


3050 IF CODE N$<65 OR CODE N#>90 


THEN GO TO 3030 
3060 PRINT AT 2,X3;N%: LET O4=09+ 
Ns 
3045 BEEP .01,40 

S070 LET X=K+1: IF X=19 THEN LE 
T X=20 
2080 IF X=24 THEN GO TO 3100 


32085 FOR R=0 TO 10: 
32090 GO TO 3030 
3100 REM CODE CRACKED’? 


NEXT R 


— = 


EE 


2110 LET RS$="pmw_jkglr" 

3120 FOR T=1 TO LEN Rt 

2130 IF CODE Q$(T)=CODE R(T) -—30 
THEN NEXT T: GO TO 2150 

2140 BEEP .05,30: GO TO 3000 
3150 FOR P=0 TO So: NEXT FP: REM 

FRINT INFO 

2160 FOR R=0O TO 10: NEXT R: CLS 
: PRINT “'NAME:=". "ACCOUNT NO.: 


S170 PRINT °’* "ANDREW HOLLINS", " 
22354565""°""LAURIE BEARFIELD" 

2" 3346463555" '’ " "MARK TAYLOR", " 
45523695"""""LEE DONKIN"," 673 


S4a72""''"JOHN CLEESE"," 022223 
54" 

3175 PRINT #0;" ANY 
KEY": PAUSE O: CLS : PRINT *‘"NA 


ME:-", "ACCOUNT NO. :-” 

3180 PRINT ‘'‘"STEVEN WRIGHT", " 
235893458" "' "MICHAEL DURHAM", " 
55424987" '"‘"MARJORIE DOOR," 

432275453" """'"SHARON CANSFIELD";" 

646865437" '"'"NICOLA APPLEGATE" 

-" 67345672" 

3185 PRINT AT 21,0;" X—-TERM 

INATE//ANY KEY": IF INKEY#="K" T 

HEN GO TO 7999 

=187 IF INKEYS<>"X" AND INKEYS< > 

"" THEN GO TO 3140 

21869 GO TO 31865 

S200 REM HIJACK 

as210 CLS +: PRINT A$ 

s270 LET X=10: LET @¢="" 

2250 LET N&=INKEYS 

3240 IF N#=""" THEN GO T i 8) 

2245 IF N@¢1)="X%" THEN GO TO 939 

o> 

3250 IF CODE N$<45 OR CODE NSs90 
THEN GO TO 3230 

3260 PRINT AT 2, XN: 

hd 

3265 BEEP .01,40 

o2fOQ LET K=X+1: 

T 2-14 > 

32780 IF X=19 THEN GO TO 2200 

32685 FOR R=0 TO 10: NEXT R 

2290 GO TO 3230 

=200 REM CODE CRACKED *? 

2510 LET R#="gacapc_k" 

so20 FOR T=1 TO LEN RS 

33020 IF CODE O¢(¢(7T)=CODE R#(T)-30 
THEN NEXT T: GO TO 32350 

3240 BEEP .05,30: G60 TO 3200 

Soag0 FOR P=0 TO SO: NEAT P 

oc5S FRINT **°* * "4. CHARAN we ace rete 

ee a 

3560 PRINT ‘'"2. NEW YORK.......:. 

~ #197" '"S, BARGELONA....222::7 

167"°* "4. MOSCOW. . eae eee eee #299 

mrs. CANADA... cen nee e ee HZ" 


LET O¢=0¢+ 


IF X=13 THEN LE 


3365 PRINT AT 17,0:"PRESS ‘B’ TO 
BOOK A FLIGHT." . 
3370 PRINT AT 21,0;" x 


TERMINATION" 
3375 IF INKEY$="B" THEN GO TO 3 
4a 


33680 IF INKEY$="XK" THEN GO TO 7 


999 
so70 GO TO 3375 
2400 REM BOOK 4 FLIGHT 
2410 PRINT AT 21,093" 
WeAT Asc"! 
3420 PRINT AT 17,0:;"ENTER FLIGHT 
NUMBERS: "5 
3430 IF CODE N#<497 OR CODE N25 
THEN LET N#=INKEYS: GO TO 3430 
2440 FRINT NS “ 
3450 INPUT "ENTER BANK ACCOUNT WN 
Bos Eile 2s 
74650 IF LEN 27#< 38 THEN G0 T0 34 


ba 


3470 IF Z$="55424987" AND NS&<>"4 | 


" THEN 

GH "sNs:" 
99 

3475 IF 7$="55424987" AND NS="4" 
THEN PRINT AT 17,-3 "OKAY! FLIG 


PRINT AT 17,0: "OKAY! FLI 
IS BOOKED.": GO TO 99 


TEE EE EE EE ET EE ET EE EE FE XE EE SHE EE EME SHE HEHE EBM EMAL AL LPH ME AE ET 


Pe i a a oe oe oe oe oe A on en nn ne ne ne ne ee ee en ne ee ne ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee en ee ee ee ee ee ee ee 


HT 4 IS BOOKED.": GO TO 5000 
S480 IF ##¢1)="X" THEN GO TO 39 

99 

2490 GO TO 2450 

ooa00 REM RUS. POLICE 

3510 CLS : PRINT OS 

2520 LET X=10: LET Q@$="" 

Soo0 LET NS=INKEYS 

so40 IF CODE Né#<65 OR CODE N$e9o 
THEN GO TO 33530 

aoe IF Wé¢ij="X" THEN GO TO 9? 

99 

2860 PRINT AT 2, %:N%: LET O$=0)$+ 
ee 3 

3545 BEEP .01,40 
2570 LET X=X+1: 

T X={5 

So080 IF X=19 THEN 

35085 FOR R=0 TO 10: 

3590 GO TO 3530 

2600 REM CODE CRACKED? 

3610 LET R="lgailgai" 

3420 FOR T=1 TO LEN R$ 

2430 IF CODE @¢¢(T)=CODE R(T) -30 
THEN NEXT T: GO TO 3650 

3640 BEEP .05,20: GO TO 3500 

2650 FOR P=0 TO SO: NEXT P 

3660 CLS : PRINT DS 

S570 PRINT AT 2,0: “AGENTS: ~ 

LOCATION: -—" 
324680 PRINT ‘"SVOEK NORATZ 


IF X=14 THEN LE 


GO TO 34600 
NEXT R 


SWEDEN ""' "BUZZ SCHWARTZNI 

G U.S.A. """"DAVID JOHNS 
ON WALES ""’ "MICHAEL 
DURHAM U.K. oe ea 

ES GATES U.K. at 
"MITTS DSRTIDMV CZECH. 
me’ "¥IOING-TONG—-TIDDLE-I-Fu CH 


INA "''"UMGA DIAWADDA 
AFRICA """"LEON SCHWITZEN 
GERMANY" 

3490 FRINT AT 21,0;" X-T 
ERMINATION"': ITF INKEY$="K" THEN 
G0 TO 9?99 

2673 GO TO 34670 

3700 REM RUS. EMBASSY 

3710 CLS = PRINT Cs 

of720 LET X=10: LET @6="" 

37350 LET NS=INKEYS 

S740 TF N#="" THEN GO TO 3730 
ofo0 IF CODE N#<65 OR CODE N€+9o 
THEN GO 7O 3730 

oafoe [TF Né¢ii="X" THEN GO TG 39 

ed 

3760 PRINT AT 2,X%3N%: LET @$=¢+ 
NG 

3=765 BEEP .01,40 
offO LET £=4+15 
TO S8OoO 

3780 FOR R=0 TO 10: 
2770 GO TO 3730 

2800 REM. CODE CRACKED 

3810 LET R&="amkkgc" 

3620 FOR T=1 TO LEN RSs 

2620 IF CODE O#(T)=CODE R#(T)—-30 
THEN NEXT T: GO TO 3850 

S840 BEEP .05,30: GO TO 3700 

=~850 FOR P=0 TO SO: NEXT F 

38640 CLS : PRINT C#: PRINT AT 2, 

O:"S ENGLISH PEOPLE WITH MINOR 

INJURIES" 

2870 PRINT ‘“'"FHILIF WHITE AGED 
29" "" "JOAN FEERS AGED 446"°°" JOHN 
BROWNS AGED 546"'' "JUNE WHITEHUR 
ST AGED 464" '"MARIE DIXON AGED & 
Lie 

3875 PRINT AT 21,0; "ANY KEY FOR 
OTHER PHONE NUMBERS": PAUSE ©: F 

OR F=0 TO 10: NEXT P 

36880 CLS +: PRINT C%: PRINT AT 2, 

O:"RUSSIAN NUMBERS":AT 3,0; "---- 


3890 PRINT ''''"HOSPITAL— 999-12 
345"'''"POLICE— 799-8S322"'° "Al 
RPORT- 267-98334" 

3900 PRINT AT 21,0; " X-TE 
RMINATION": IF INKEY#="X" THEN 
GO TO 9999 

3910 GO TO S700 


IF X=146 THEN GQ 


NEXT RK 


, dn ee ee ee en dn ee ee ee ee ee ee ee ee ee ee ee ee ee ne en ee ne ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


» IBonnRts 


4000 REM CHUG CHUG TAXI’S 

4010 CLS +: PRINT MINK &: PAFER 1 
>" CHUG CHUG CHUG CHUG CHUG CHU 
(3 HH TAX] SH HH 

4020 PRINT ‘“"°*" 
ESS SHUT!" 

4030 PRINT °°" 
FUNCTURE!" 

4040 PRINT (¢'  Ushee REE HERE RHEE 
SELEREEREEREBERHEHE": GO TO 9999 
46050 CLS : REM GOOD TIME 

4060 PRINT “HI THERE,SO YOU WANT 


SORRY BUSIN 


WE'VE GOT A 


&® GOOD TIME": FOR R=0 TO SO: NE 
XT RR: PRINT "WELL-OKAY!" 
4065 FOR R=0 TO 100: NEXT R 
4070 PRINT ‘'"WHAT DO LADY SHEEP 
WEAR * EWE-NIFORMS. " 
4075 FOR R=0 TO 100: NEXT R 
4080 FRINT “’"HOW DO YOU GET 2 W 
HALES IN @A MINI? 
DRIVE DOWN THE MO 
TORWAY "' 
4085 FOR R=0 TO 100: NEAT R 
4090 PRINT ‘‘'"WHAT DO YOU GET IF 
YOU DIAL 4247641 515358357454 
S83487413367 7? A BLISTER ON YOUR 
FINGER!" 
4095 FOR R=0o TO 100: 
TO 999 
4100 REM RUS. HOSPITAL 
4105 FOR FP=0 TO 50: NEXT P 
4110 CLS : PRINT INK ¥s FPAFPER 2 
SUPP EPErrirt! HOSPITAL (fibres 


NEXT RR: GO 


Pour 

4120 PRINT 

4130 PRINT "ALL ENGLISH PASSENGE 
RS THAT WEREINVOLVED IN THE RUSS 


IAN AIR CRASH ARE SLIGHTLY & 
RUISED BUT NOT SERIOUS. THEY ARE 
ALL IN A VERY STABLE CONDITIO 


MN AND THERE IS NO CAUSE FOR WORR 
¥, THEY WILL RECOVER VERY SHORTLY 


4140 PRINT AT 21,0;" %-T 

ERMINATION": IF INKEY#="X" THEN 
GO TO 7999 

4150 GO TO 4140 

4200 CLS : REM AIRPORT 

42705 FOR FP=0 TO 50: NEXT P 

4210-2 FRING DNR aE eo eo a 
IRPORT ee ee 

4270 PRINT . 

4230 PRINT "ALL CASUALTIES INVOL 


VED IN THE AIR CRASH HAVE BEEN 
MOVED. TO THEHOSPITAL." 
4240 PRINT AT 21,03" ad 


ERMINATION': IF INKEYS="X" THEN 
GO TO 7999 

4250 GO TO 4240 

4300 REM SORD MS 

2310 CLS : PRINT “SORRY!'. MY SORD 
IS SOLD,FORGOT TOTAKE MY MESSAG 

EF OUT'": FOR R=Oo TO 100: WEXT R:e 
GO TO 7999 

Sooo REM YOU HAVE WON 

SO1i0 FOR R=0 TO SO: NEXT R 

Jo20 CLS 

SOS0 PRINT AT 1,0; "##HHREHHEX 

SRE RHP ERS" 
SO40 PRINT °“’'" WOU HAVE MADE I 


T BACK TO MOSCOW,WHERE YOUR 
CHIEF CONGRATULATES YOL) 
ON YOUR SUCCESSFUL MISsIoO 


NM AND WELCOMES YOU HOME!" 

5050 PRINT AT 1,11; "WELL DONE" 

5055 FOR F=0 TO S50: NEXT F 

5040 PRINT AT 17,0; FLASH 1; "YOU 
MADE IT BACK TO THE U.S.5.F. " 

So70 GO TO S030 

Soo8 STOP 

S999 PRINT INK ¥:AT 21,0; "H##HH# 
CONNECTION TERMINATEDH####": FO 

R P=0 TO SO: NEXT P: GOTO 2100 





———— 
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COMMODORE AMIGA 


This is the first time C+ VG has ever printed a listing for the Commodore Amiga. We'll be very 
interested to know what you think. 

It’s not strictly a game we think you'll find this listing fun. This program builds the famous 
Amiga bouncing ball pixel by pixelon a 32 coleur screen, then rotates it by changing the 
colours in the patette. 

Angela’s original idea was to make it bounce as well using the screen GET and PUT. 
Unfortunately, the resulting flicker completely spoiled the effect. But if you want to play 
thre the the program you may be able to find away to make the ball bounce without a 
flicker. | 

The new window won’t open unless you use preferences to set the text to 80 columns. This 
is a good idea in any case as it will make it easier to type the program in. 

Each command is followed by a REM statement telling you exactly what's going on. You 
don’t have to type these in, but it could be helpful. 


rad = 52 *This sets the size of the ball (MAX Yo) 

rad2 = rad“? 

scale = 125 "This sets the size of the pattern on the ball 
scale4 = scale/4 

norm = 2*¥2,141592/scale 12 *# pi radians in a full cirete 


SCREEN 1,220,200,5,1 
WINDOW 2,"AMIGA BALL", (@,0)-(297,1846),31,1 


‘Opens a 32 colour screen 
"Open a full size window 
FOR y = -rad TO rad *Count horizontal lines 


Ye=yur 


FOR x = -rad 10 rad 
IF SOR(x“2+y2)¢rad THEN 
tnp=x/SOR(rad2 - AES(Cy2)) 
xres =ATN(tmp/SO@RC1i-tmp™2)) /norm 
tmp=y/rad 
yres =ATN(tmp/SOR(1-tmnp“2) > /norm 
col=xrestscale4 


IF (yrestscale4) MOD 16 ¢ & THEN col = colts ° 


col = col MOD 16 
PSET (x+rad,ytrad),4+col 
END: LF 
GOSUE rotate 
NEXT x 
NEXT y 


loop: 
GOSUB rotate 





*Now write it 


*Count pixels 

‘Are we inside circle’? , 
‘Now map the raster coords onto 
7a sphere (a bit cumbersome 
Sowing to lack of arcsine 

7in Amiga basic). 


Make it chequered 
Colour w. to 13 
into current window 


*Remove this line to make pic build faster! 


‘Wait here rotating the ball ! 





GOTO loop 


= ree 


I 


a 


rotates *This rotates alternate red and white through the palette 
PALE? Te cA i tt. 7 WHITE 
PALETTE 4+(c+8) MOD 16,1,2,@ RED 
e=ct+irIF ¢715 THEN c= *Rotate through palette 

RETURN 


| > | LASSI so SOIRICA hON GIR | stab yumi EK 84 | JAurHoprisaion 
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CBM 64 


Is the dome doomed? Will those killer Kraalians beat the Buggy? Only you can find out if you 
type in Dome Buddy. 

The evil Kraalians are dropping ecto-plasmic residue bolts onto your dome, destroying it 
piece by piece in a attempt to get to the energy cells which power the planet. 

You in your buggy must try and replace the bricks in the dome as they are destroyed. By 
positioning the buggy over a gap in the dome a replacement block can be dropped. Every 
1,000, 2,000 and 3,000 points etc the player advances one level. The higher level, the thinner’ 
the dome. There are three skill levels, optional sound and high score table. 

Dome Buggy features user-defined graphics so check with your Commodore manual to 
make sure you hit the right keys — and a fully defined character set. 


Dome Buggy Variables and Notes 
Hi: High Score 

BYS: High score name 

HF: High Frequency 


LF: Low Frequency 

D: Duration 

DH%: Title screen array 
AS: First line of graphics 
BS: Second line of graphics 
C$: Third line of graphics 
D$: Fourth line of graphics 
P: Buggy position 

TA: Target Score 

CO: Colour difference 

BP: Box position 

$C: Score 

L: Graphics for screen no. 
LL: Level 

RK: Title screen 

B: Bolt position 

DD: Dome depth 

DR: Drop buggy? 

0-14: Title screen 1 








30-47: Read UDGs 

50-128: UDG data 

201-204: Title screen 2 

210-330: Read IRQ music m/c 
330-3990: IRQ music m/c data 
440-900: Music data 

930-956: Title screen 3 data 
970-992: Kraalian sound m/c 
995: Read screens 1-5 data graphics 
2000-2110: Screen graphics 
4000-6108: Animated title screen 
6115-6199: Game initialisation 
6200-6203: Endgame check 
6210-6275: Drop buggy 
6300-6350: Update Kraalian 
6355-6400: Update bolt position 
6405-6500: Input routine 
6500-6620: Right 

6700-6825: Left 

7000-7035: Drop box 
7500-7550: Update box position 
8000-8050: Box strength 
10000-10090: New High Score 
10100-10110: Explosion 


QO HI=1000: BY$="RIK":POKESS272, 21 

» PRINTCHRS (14) :POKESSO, 126: POKES 

32781,0 

{ PRINT SRR": TABCP)" a alot 
| il 

om PRINTTAB(?) “eel a) ml at ml moa 


130, 

78 DATA 
I a ij ; 
ao DATA 
82 DATA 
i268, | 

B84 DATA 
84 DATA 
134, 

BB DATA 
4,,254,1 
92 DATA 
ee ee Oe | 


3746 DATA 


oS PRINTTOR (9) "cal wl ate] ol] eee 
4 PRINTTAB(9) "sl ol el et at | 
a PRINTTAR TAs a) | 

4 Son Aeterna u| wl #8] B| a| 
= PRINTTAB(?)" 2 a| 2] ol] ol oe 
4 PRINT TABS e ei wi a] of wy ol et 


98 DATA 

=4,4,8,1 
too DATA 
hee: ae = 
i104 DATA 
54, 

i1o5 DATA 
130,135 


9 PRINTTABC?) "ad al Bl al u! uml 
10 PRINTTAB(S) " i | Ht | 

ey" 
Li PRINTTAB (A) "se-OR THE —OMMOD 
ORE 64." 
12 PRINTTAB(I7) "dial Ye": PORES S2B0 
,O:PRINTTAB(13)"—IK IEAVEN.” 


+4 


24, 


112 DATA 


a 

a0 FORT=OT0215: READA: FOKE143.56+7T 
A: NEXT: FORT=1 708: POKEL4S914+7, 0% 
NEXT 

47 FORT=170160:READA:POKE14/1 F+T 
~AarNEXT:FORT=OTO7: READA: POKE14 70 
4+4T, A: NEXT 


ee ase, obe SBE 8647 3797 Fee re 
So DATA 255, 255, 254, 243,255, 200, 


ce ara 
1186 DATA 
119 DATA 
120 DATA 
,85,85 
121 DATA 
, oo 

122 DATA 
»F0,40 
1235 DATA 
al 

124 DATA 
4,66 

125 DATA 
i246 DATA 
Cn 

127 DATA 
128 DATA 


E53270,P 


ers eae 


2c ; 
S2 DATA 56,648,130, 254,130,120, 15 
O, , 252,466,646, 124, 66,66, 252, 

Ss DATA 56,68, 128,128,128, 68,56, 
,248,68,46,56, 66, 59, 240, 

0 DATA 254,44,64,120,64,64,254, 
(254, 64,64,120, 64,54, 64, 

64 DATA 60,66,128,142,130,68,56, 
&& DATA 150,130,150, 254,130, 150, 
130, 

GQ DATA 54,14,16,146,14,146,56,,14 
14,4, 132, 132, 72, 48, 

72 TWATA 130,122, 1354,144, 148,196, 
130, 


201 PRIN 
=) WS E. FR {i ul 
202 PRIN 
74 DATA 128,128,128,128, 128,126, »PRINTTA 
254, 204 PRIN 
48 DATA 120,198,170, 146,150, 150, Not oer 





i110 DATA 2 


o "Sg0000"c00000 





450,194,162, 146,138,134, 


54,68,130,1250, 150,468,546, 


54, 68,150,130, 138,68,58, 


ne 1% 150.252, 22 52 
eae Fee 1350, 130), rae Fe =_z 4 1 i= a 


124,130,128,124,2, 150,12 


&,16,146,16,16,14, 
130,130,130, 130,150, 68,4 
30, 468,68,40,40, 16, 
130,130,130, 146,170,198, 


iSO, , 130,68, 40, 16,40, 68, 150, 


150, 68,40,16,16,16,16,,4 
6, 32,64, 204, 

124,150, 130,150, 150,130 
4,4,8,8,8,4, 

124, 1350,2,124,128,128,2 


124,1350,2,124,2,159,124 
0,130, 254,2,2,25 


a 
54,128, 126, 252,2, 130,1 


124, 130,128,252, 130, 150 


= = aE = 


4 iz4, a ee Lg eg tg = 


® 
\ 
‘ 
‘ 
\ 
\ 
. 
\ 
% 
& 
\ 
\ 
\ 
‘ 
\ 
& 
| 
‘ 
y 
y 
: \ 
14 PRINTTAR(LO)"SIIANG ON @ SECON 116 DATA 124,130,130, 124,130,150 

| 
\ 
by 
4 
Ry 
y 
\ 
\ 
% 
% 
% 
\ 
| 
‘ 
| 
‘ 
Ry 
% 
\ 


= Sal = a. 3 3 
124, 1 at) y 1 hls 125, Ce | iq 4 
2d Oh ate Gea 


255 ,.170,170,170,170,170 


,240,172,171,171,170, 85 


105, 105,130,150, 130,130 


204, 136, 187, 153,85, 85, 6 


20,20, 93,897,085, 85, 20, 20 


60, 40,235, 170,170, 105,4 


28,28, 28, 28,28, 26, 28, <0 

seuyere erage nrets 24, POR 
FEK (53270) 0R16 
T Sieleletedeleetelededere le lel e) 
OYSTIK IN PORT ONE, " 
TTAB(i2) "SDR USE KEYS —-" 
Bei 2) "BW ee ee LEFT "™ 
TTAB(10) "MB “eee eae RIGH 
NTTAcC(iO)}"M --.- pani] 


\ 
\ 
\ 
\ 
\ 
\ 
| 
\ 
\ 
\ 
‘ 
| 
\ 
\ 
‘ 
\ 
\ 
\ 
\ 
% 
\ 
\ 
‘ 
\ 
\ 
\ 
‘ 
\ 
X 
\ 
\ 
® 
‘ 
\ 
N 
\ 
\ 
X 


OF - 

210) POKES S20, O:POKESS261,0:P0RE 
S322, 11:POKE5S283, 12: FORT=OTO2: 
FORX=O07TO255 

olG READA: IFA=—-1THEN330 

18, POKESZSSO4+7#256+%, Ar NEXT S 
30 NEXTT: DATA i6?,146,141,21,5, 
169,,141,20,5, 76,71 

Sot DATA1IG?, 224,141, 21,5, 169,47, 
41,20; 55905 7-1 

S40 DATALITZ, »147,192,17,249,57,2 
Od, 1s 147,175, 15147201, , 208, 4454 
So. j de. 107 

=70 DATA, 141, 4, 212, 169,10, 141,55 
212,167, 9141, 6, 212, 169,175 1415 %5 
912,185,,147 

7q0 DATA@1GS, ,148,141,1, 212,185, , 
149,141, ,212,185,,150,141,1,147, 
76,49, 224 | 

=90 DATAI69,,141,,147,141,4, 212, 
24,144, 242,-1 

400 POKES7O632,0: POKER746323, G: FORT 
=O7T0177:READHF,LF,D:PORES7E88+1 , 
HE: POKESS1444+T,LF 

470 POKESB400¢7T, Ds NEXT: PORES 7330 
Ti: PRINT" CW! : POF 1 Le eB em Bd Pe 
844 

440 DATA 241. 31,10, 21,31, 5, 25,59; 
10,26,156,5 

450 DATA 21,351,100, 21, 51,5, 25, 30, 
10,26,154,5 

440 DATA 21,351,106, 21, 51,5, 25, 50, 
10, 26,156,5 

A7CG DATA 21, 31,10, 21,51,5, 25,40, 
10, 26,1564,5 

460 DATA 78.49,10,26,49,5, 35,145 
,10,35,134,5 

490 DATA 28,49,10,28,49,5, 35,155 
,10,35,134,5 

SOO DATA 29,49,10,26,49,5,535,155 
,10, 50, 134,24 

Sid DATA 38,49,10,28,49,5,35, 125 
,10,25,134;5 ; 
S590 DATA 31,165,10,31,165,5, 37,1 
Faye bia hay cots Erie el 

520 DATA 31,1468, 10,31,165,5,37,1 
2 1Oyo eco 

S40 DATA 28,49,10,28,49,5,535, 155 
Ogos poh 

SSO DATA 28,49,10,28,49,5, 35,145 
, 10,25, 154,5 

560 DATa 21,351,100, 21,31,5,25, 44, 
10,26,156,5 


— 


- I 





et 


ee ee 


S70 DATA 21,31,19, 
10,26,1546,5 
580 DATA 21,31,10,21,31,5, 25, 30, 
PO e255; se), oko 
600 DATA 21,31,10,21,31,5, 25, 30, 
10,26, 1546,5, 21, 51,30 
620 DATA 28,49,10,28,49,5,53,135 
, 10,35, 134,5, 28, 49, 30 
640 DATA. 31,165, 10,71,.145,5, 37, 1 
62,10,597,223,95 
650 DATA 26,49,10,28,49,5,35,155 
, 10,35, 134,35 
660 DATA 21,31,10,21,31,5, 25, 30, 
10,26, 156,5, 21,351,350 
680 DATA 31,145,10,31, 
65,10,3 223, 40 
670 DATA 28,49,10,28,49,5,20,49, 
10,35, 134, 40 
7oOo DATA 24 ,31,10,21,31,5,21,31, 
ity, 26,156, ao 
710 DATA 21,31, 16, 26, 156,5,26,15 
6,10,21,31,40 
720 DATA 21,31,10,21, 31,5, 25,30, 
10,26,156,5 ° 
730 DATA 21,31, 
10,26, a Rasa ra 
740 DATA 21,31,; 10,21,31,5,25, 30, 
10, 26,154,5 
750 DATA 21,351,10,21, 
10,26, 154,5 
7460 DATA 28,49,19 
,10,35,134,5 
770 DATA 28,497,10,28,49,5,33,135 
»510,35,134,5 
780 DATA 28,49, 
Oso led a 
790 DATA 26,49,10,26,49,5,355,135 
Se Pes ee ACT ae 
B00 DATA 21,31, 
10,26,154,5 
B10 DATA 21,31, 
10, 246,154,5 
820 DATA 21,31, 
10,26,154,5 
@30 DATA 21,231,169, 21,31,5,25, 50, 
10, 26,1546,5 
840 DATA 31,165,19,21,165,5 
62, 10,39,225,5 
850 DATA 31,165,109, 31,165,5,37,1 
62,10, 39, 225,5 
840 DATA 28,47,10,28,49,5,335,135 
,10,25,1234,5 
B70 DATA 26,49,10,28,49,5, 35,135 
,10,354134,5 
880 DATA 21,351,10,21,31,5,25, 59, 
10,26,156,5 
890 DATA 21,31,10,21, 31,5, 25,30, 
10,246,154,5 
900 DATA 21,31,10,21,31,5,25, 50, 
10,26, 154,5,21,31,19,21,31,5 
930 DIMDMZ(192) :FORT=0OTO192: READ 
SA eh lic atlcteb Uy 
940 DATA -2,-2,- 
1,21,—-2,297,7,21, 
941 DATA 29,5, 25,1 
21, 21,72,29,7,21,- 
945 DATA 21,7,21,7,21,-2 
944 DATA 21,35, 21,1,21,1,21,35,25, 
ig21,- 
947 DATA 21,3,21,1,21,1,21,3,25, 
1,21,-2 
948 DATA 21,7,2 
LF ee ly tell, 
950 DATA 21,5, 25, 5,25, 1,21,-2,;21 
poyoO,2,21,-2 
955 DATA 214 o)20—oy eo, be ee es ee 
feel tyeryoeyot gre 
955 DATA 21,7,21,7,21,-2 
954 DATA 21,3,25,1,21,3,21,1,21, 
eed 
957 DATA 21,3,25,1,21,3,21,1,21, 
ete 
9568 DATA 21, 


oats 


—2,37,-2 . 


21,31,5,25, 30, 


Aa eno et ea 


lO, 21, 21,25 baw eae Bh 


— | a 
ae | q uly mu 5 ol, 


, 20,749, 5.946, 155 


10,28,49,5,33,135 


10, 21,31,5, 25,30, 


10,21, 31;5, 25,50, 


4, 22,128! 54 2S 01.21, 


SEA DATG Ole 7s 29:2. 2ly S125. 2e 
an 

‘ = , 

4429 


963 DATA -2,37,-2,24,4,27;- 
Ty DATA 21, a ie ees 4, as 
9765 DATA 21,7,27,—72,37,72,—1 


2050 DATA": (THGEGGGEM, : 77; 


LALLA LEE EL EDT ED TTT TTT E TELE EE TEE ETEE ELIE ELEI ELLIE ELLOLO OEE EEOEEOED 


970 FORT=0TOY7: READA: POFE49152+T 
, A: NEXT 
980 DATA 174,167,2,1697,32,157, 76 
,4,1697,42 
9BS DATA 157,77,4,149, 
4,149,461 
985 DATA 157, 79,4,169,59, 157,80, 
4,169,41,157,81,4, 147,59,157, 82, 
4,147,460 
989 DATA 157,85,4,169,32,157,84, 
4,96 
771 DATA 169,126,141,18,212,14%, 
Se toil oe Sle 169,2,141, 20, 212,16 
7.40140, 15,212 
$92 DATA 141,14,212,169, 127,141, 
168,212,76 
795 FORT=17TOS:READAS(T) ,BS(T) , CS 
(TT), DS(T):NEXT: FORT=OTO28: READA: 
FOKE49300+T7, A: NEXT 
Looo PRINT" CSeeeleieleleteeteteieleleteialete) 
Bistele}!"'; : FORT=17TO40:FRINT" "3 NEXT 
1001 Pei225: TA=1000: CO=34272: BP= 
P+i:RK=O: 5C=0:lL=1:LlL=0: S¥S26864: 
POKES42964, 1 
1005 PRINT"S&MUSIC YES : 
IRE TO START." 
1010 A=DM“ (RK): RE=RE+1: TF A=—-1 THE 
NGOTOS000 
1030 JIFA=-2THENGOTOIVSO 
1040 IFASOANDA< 2OTHENGOTO4O000 
19050 IFA>2O0ANDA< 41 THENSOTOSOO1 
1060 .GOTOLO10 
1080 P=P+1i:POKEP= 2, 32: POKEP- z 
2:POKEP—40, 57:POKEP-40+C0, 9:POKE 
ae 39, 60: POKEP— o7+CO,7 
1130 POKER, 61:POKEF+CO, 9: POKEP+C 
O-1, 7:POKEP+CO-41,9: BP=F+1:GOTO1 
O1g 
2000 DATA "IRs TEGENP?— 3 
GGGEGGGGEGEG KF, —-? Tees -;" 
2002 DATA "sh ??; eee Bl33 33 0eR— 
bh? hbo GIs s 551 TIGGER: PPPs" 
[O04 DATA "Ws ‘PP 3; GGG Fls333; oer 
do pO PGMs: | MGEGIR: PP?" 
2006 DATA "IR; (eG? — 5 
G#GGGCGEGGG MM, —~?TI TEE im; " 
2010 DATA" BR; B@GeGr| SCR | Seek! Seer 
oat aa eeeta ee saan eee eens See ye 
eam; 
2012 DATA" Ws Gi | 
fasts: GR I 
2014 DATA" I: Her! | |) Gus ; — 
@—sees—-K-:: eR! / 11! | em: " 
2014 DATA"; MaGG| mGGM| ZGeR| eee 
SURRRR ETE 2 RSG | SCC! SECR! hee 
Gm; " 
2020 DATA" Ky eGR Seer | Beecer| 
Oe HeGeR | HE | Seeeer| Teeere 
Tem: "' 
2027 DATA" Ky; -Geek—-—eR | ee? ? |— 
[TOM ; TERI NGM | 237? | Oem —aeer— 


2024 DATA" i: - “a ae a 
[TOM MSI TEM 1 PPP? | eR -oeeer— 


2026 DATA" 8; ——TIGGR-IGGR| HaGeer| 
Jel | SSGGEM| GEM MaGGEMi NeeerR—Ne 
@@GR; " 


59,157,78, 


PRESS F 


a TC 


ryee 


LE PE LUT T Pee 5 — 
[lilt it em," 
PT rie 
lobe 








23; MEG 

AG@@GGMs T7277 TWSSCeGEM) ." 
2032 DATA "Ms 2.27277 2773 feGem:: 175 
PPPP EP Las [EMBGSM, PETITE" 

2054 DATA "ei PPP??? s SBEGR| :: 175 
PPPP. Pls: [THRGGM, POPPT TEs" 

2036 DATA" M: | BGGGGEMs ; 77; 77s [EE 
GCGGGGMs 77:77; TREGEEGRI ; " 

2040 DATA" Wy —————~ | EGS | 
eee Ace] ABI cle AB IDCeL a ———-- 
2042 DATA" My —TE RG MTG Te —7 1? 
7 PP? | PPD | PP? 1 OPTS OGG -Te 
aoe bh 

2044 DATA" i; —CeR Oem m—Te I? |? 
PD PPP LPO? LPP? | OPTS IRATE E-TG -E 








2046 DATA" Wy -——————aG FL | @GM | 
OGM | BEGM! | BeGM) | Me" ———————-; " 


2100 DATAi49, 128, 141,18, 212,149, 
Te a oe 2.441.415, 212. 169, a,14 
1,19, 212,169,14 
2110 DATA141,20, 
18, 212,96 


212,169,129,141, 


Bt ae ee ee ene ee eee 


0 "oc HL UL 
4000 BRP=P+ 1 


4010 POKEBP+CO, 10:FOKEBP, © 
40271 GETAS 
ri IFAS="¥"THENPR INT "sme YE 


S":SyY5 326864 
403% [TFAt="N"THENFRINT" sabe ee RIND 
":S¥S 3686442564 
4074 7=PEEK (54321): IF Z=229THENGO 
TO4S100 : 
4OS0 2 PEEK (BP+40) :IFZ<>2 va THEN4AC 
70 


4050 BP=Be+40:POKEBRBP,0:FPOKEBRP+CO 
, 10: POKEBF—-40, 32: G0TO4021 

4070 A=4-1:5¥549300: IFASOTHENGOT 
4000 

4090 GOTOLO16 

SOO, AsAa-2o 

5Oo10 BRP=P+1 

50270 POKEBRP+CO, 14:POREBP,© 

SO21 GETAS 

S02? athe ae a SL LS Idol kee 


5°:SYS 36864 
mOeS TFAS="N"THENPR INT" a3 INC 
"sS¥S 346864+2546 
S024 7=FEEK(S6321): IF ¢=239THENGI 
Wy 
Sos Z=PEEK (BP+40) 2: TF Z¢ eS 2THENSO 
OQ) 
Sooo POKEBP+40, O:POKEBF+40-+CO, 14 
:-POKEBF, 32; BP=BP+40;: GOTOS021 f 
BO70O A=A-1:57S49300 


SO8c IFA>OTHENGOTOSO10 
5090 GOTOLO1O 
Sco : 
S901 POKEP, 32:FPOKEP—-1,32:POKEP-3 
ae 
S002 POKEP—40, 22:POREP-41, 32 
6003 : 
6004 FOR 
xT 
S005 Asilh:sB=Ati144 
6006 POKES679,4:5YS49152: POE 
:FOREB+CO, 9 
S007 A=A-2+tINT(RND (1) #3) +1 
64008 IFA<STHENA= 
60097 IFASS7THENA=37 
64010 GETAt 
4011 IFAas="Y¥"THENPRINT "see hye 
S":SYS368464 
S012 ITFat="N" THENPRINT' S36 Be NO 

"2 SYS3468644256 
4013 Y=FPEER (36321): 
CM) 
6014 POKEB, 32: Y=PEEK (B+40) 
4015 IFY=67THENFORT=1TO1000: NEXT 
sGOTOLO00 
S016 IFY< >OTHENB=B+40:G0TO 6006 
6017 POKEB+40, 32: S57YS49201:B=A+ 11 
44:60TO6006 
6100 ; 
6101 PRINT" Sal :FPRINTTAB(CIGO) "DIFF 
ICULTY £23" 
6107 FRINTTAB(10O) "SIL: EASY 3: HA 
RD" 
S105 GETAS: IFA$=""THENG103 
6104 IFAt="1" THENDD=97: GOT06108 
6105 IF At="2"THENDD=46: GOTO6108 
6106 IFAS="3"THENDD=3: GOTO46108& 
4107 GOTO4103s 
S108 PORESS272, 31: 5C=¢ 
6115 PRINT" “SR.5CORE HI 

BY LEVEL 

6114 TA=SC4+1000#L:LL=LL+1 
6117 IFL=S4THENLL=1: DD=DD-3 
4118 IFDD< S3THENDD=s 
6119 [FL=117HENLL=1:DD=DD-3 
6120 PRINT" See Ss oC 
6121 PRINT" Sf: sPRINTTAB(153) sHI 
Hi2? PRINT" si": TAB(27)5;BY5 
61235 PRINT" S's TAB CS7)5L 
5124 PR UNT " slereledetetedetetete)" ; 
61275 FORT=1TODD:PRINT"&"::FORJ=1 
TO40: PRINT "@": sNEXTI,T 
51276 FORT=i1TO40: PRINT’ o's :NEXT 
&1l2y PRINT" steleteleleele(sleelelele eee eel ae 


6128 FORT=1T040: PRINT" s "3 2 NEXT 
Gi29 PRINTAS(LL) ; B® (LL) 308 (LL) gD 
CLL 

6130 FORT=i1TOS9:PRINT"s "3 2NEXT#P 
RINT" si" s 


T=#=OTOS9: PORESSS746+7, 9: NE 


FR, 646 


IFY=239THEN61 





6131 POKE2O2S,59: POKES&6295, 9: FOR 
T=O0TOS9?POKESS3/746+T, 7s=NEATSPORES 
ap ee ey eee a desl 

6150 KRP=17:P=1367:F=1:Bb=kP+1144 
S155 FOKEP, 61sFOKEP+CO, f:POKEP—1 
Sm te Poy ad | md ll Pd 8 a BE ee a eB 
Stale! ; 

6156 FPOREF<39, 60:P-OKEP-414+C0,7:P 
DRE 4AC+COL Ss GKERP-=SS+C0.> 

S159 FRINT™ sietereiete" ; 

61460 PRINTTABRCI?) "SREADY":FORT=1 
TOEOO: NEXT:PRINTTAB(1 7) "CBTEADY' 
2 :FORT=17TO800: NEAT 

&1465 PRINT" GRRE GO “ssFORT=1 
TOHOO: NEXT: FRINT" oe o 

Sissy Feo 

&200 DFC 

6201 f[FSC>=TATHENLEL+1: GOTO4S115 
65202 ITFRPA 1 sea THeEnsoToSs 220 

627035 IPPS1743THENSYS49200; G0TO1¢C 
Cis 

6210 [TPRPEEK (RP +40) < 
O22 S47 THENGOTOS 200 
6220 ITFF=0OTHENGé 250 
S230 PREP Soo: POORER oo? PORES +2 
, 60: POKEP+1 +CO, 9: POREP+40, 61: POR 
EF +40+C00, ¥ 

6240 FPOKEP+39, 61: POKEF+397+CO, StF 


7S 2ANDPEER (P+4 


6405 IFDR=1THENGOTOFSo0 
56410 2Z=FPEER (S43271):1GETLS 
6420 [TFZS=2390RL$=" “THENGOSWBY Co 
eo 

6430 [P2225 10RLS="2" THENGOSUBS 7 
Ore=o 

6440 [P2=2470RL¢="M" THENGOSUBSSO 
Merrell 

6450 GOTOYS00 

S500 3 

6510 IPF=1THENGOTO6350 

65920 POKEP—-41, 32:FP=P+1:POKEP$39 
60: PORKEP—39+CO, 7: RETURN 

Sa50 5: 

6560 [FPEER (P+1)=32THENGOTOS400 
627) PORKEP, 22: POREP—1, 32: POKEP<4 
tL, o2f:P=P—-39: POKEP, &611;5POKEP-21,615 
POKEP-41,597 

6580 POKEP-41+CO, 9: POREP—40, s9:P 
OKEP—40+C0, 7: POREP-39, 460:POKEP-3 
9+C0,97: RETURN 

6400 REM STRA 
IGHT . 

4510. POKEP-1, 32: POREP-41, 352: P=P+ 
1:POKEP, 61: POKEP+CO, 7: POKEP-40,5 
>: POKEP—-40+CO0, 59? 

4520 PUKEP—S>, 40: POKEP=“39+CO, o:R 
E TURN 


0 I o"'oo0000 


000 


7025. HP=P+1:POKEBP, O: POKEBP+CO, 1 
2: RETURN 

7O30 IFPEER (P+39) =OTHENBF=O: RETU 
RN 

7O31 SC=S5C+10#L:PRINT" See ee SS 
c: 


7035 BRP=P-i1;POKEBP, OG: POKEBP+CO, 1 
O: RETURN 

7500 TFRBFP=OTHENS 200 

7uOo xXx=Q 

7510 7=PEEK (BP+40)!: 1F 24 >327THENEP 
=O: SY549300: GOTOS200 

7530 PORKEBP+40, Os POREBP+40+CO0, 10 
:-POREBP, 322: BP=BP+40: A=X£4+1 


“7540 [Px =STHENGOTOS4200 


You GOTO7S10 
BHOoOO IFL=20RL>+3THENPORKER+40, 22 
S010 IFL>2THENPOKEB—-1, 32: POKEB+1 


ee, 
q an 


ao20 ITFL¢ >BANDL< >4THENGOTOEO40 
S030 B=KP+1144:5¥YS49201:6G0TO6400 
AH4Ao. TFR< i YEBSTHENGOTOS8O2O 

S080 GOTORLOOO 


10000 POKESS262, 11:POKE53283, 12: 


PRINT" sieteleleiel: TAB (14) " aSAMEanVeER 


":FORT=17T02000:NEXTT 
10001 BYS="";FPOKE198,0 
19010 IFSC“HITHENLOOO 


10020 PRINT" TRY: TAB C13) " mistetetetetein 
misieqe)" ; 

10030 FORT=1024T01063: POKET, 59:P 
OKET+CO, 9:NEXT:PRINT"SNEW "; 
190040 FORT=11035TO20238STEFP40: FOKE 
T, 59: POKET+CO, 9: NEXT: PRINT" HIGH 


10050 FORT=2027TO1L984STEP—-1:FO0KE 
T,59:POKET+CO, 9:NEXT:PRINT" aSCor 
Es 

10060 FORT=1944T01064STEP—40: PORK 
ET, S9:POKET+CO, 9: NEXT 

LOOFO HI=SC: INET " stele Detederedereteretetere 
RIB MICNFUT YOUR NAME PLEASE "sR 
VS 

10080 IFLEN(BYS) >=THENBYS=LEFTS ¢ 
BYs, 3) 

Loo7O GOTGLOOE 

10100 SYS346864+4+256 

10101 POKES4296, O:FORT=17T010; FOK 
E54294, 7: FORH=1 TO40—-T: SYS493003 N 
EXTH, T:POKE5S4296, 15 

10110 FORH=1 70255: SYS49201: POKES 
$2827,H:POKESS205,H:NEXT:POKE5429 
6,00: G0TO10000 


6700 ; 

6710 IFF=OTHENGOTOS/50 

6/20 POKEP-39, 32: P=P-1:POKEP—41, 
42:FPOKEFP-41+CO, 7: RETURN 

6730 

&760 Z=PEEK CP—-1) 

S765 IF Z=OTHENGOTOSSOO 

SF? POKEP+1, 32: POKREP-39, 32: POKE 
P—-1,41:POQKEP—-1+CO,7:POKEP-41,59: 
FOKEP—-41+CO,7 

6775 POKEP-42, 42: POKEP—42+CO,9:P 
=P—1:s RETURN 

5800 POKEP, $4: POKEP+1,32:POKEP-3 
9, 22:P=P—-41:POKEP,61:POKEP+1,41 
46810 POKEP-3°9,397:POKEP—-39+CO,9:P 
QHKEP-40, 59: POKEP-40+C0, 97 

4820 POKEP-41, 62: POKEP—41+C0, 59 
6425 RETURN 

7OO0O ITFBP« >OTHENRE TURN 

fOOL £=0 

FOI TFF=OTHENGOTO Oso 

7020 IFFPEEK (FP +41) =OTHENBF=0: RETU 


OKEP-40, 32: POKEP-41, 32:POKEP-39, 
32: P=P+40 . ‘ 

46245 DR=1:G0TO4Ss00 
62750 POKEP, 59: FPOKEF+1, 59: FOKEF—1 
62: POKEP-1+C0, 9:POKERP+40, 613 F0K 
EP+4O+C00, 9 

6260 POKEP+41,451:POKEP+414C0, 9:F 
OKEP-41, 32: POKEP-40, 22: POKEP-29, 
S22P=P+40: R= 1 

S275 
S300 KP=KP-14+INTORND (1) #3) 

4310 IFEP<OTHENKP=0 

6220 TFEPS=29THENKP=39 

63350 PORES79, EP:!SV¥S 491352 

iI5c 

6255 IFBPi74STHENGOTOLO1OO 

6360 POKEB, 646: FPOKEB+CO,9 

270 Z=PEEK (B+40) 

6280 [F7=220R7=467 THENPORERS40, 44 
:POKEB+404+C0, 9: POKER, 32: B=B+408| 
‘oTo6400 

6390 IF 27=0THENPOKER, 32:POKEB+46, 
Se: B=84+40; GOTOEROOD Fer 

43595 POKER, 32:S9YS849201:G0TOiE0nn 7O21 SC=SC+108LEPRINT" see oS 


S400 : C 


TI APMP MMMM AAA MAP MAA AAA AAA AAA MAA eee ee ae ee 
ee ee ee ee eee ee ee ll 


\a ae AAA AAA BRAEMAR an nn nn ee ee ee ee ee ee ee ee 
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BBC 


Elite is a mixture of flight simulation, arcade action and strategy. In it you play the part of a 
space ship owner, travelling the space highways, trading to build up funds and buy better 
equipment. Elite mania gripped the homes of thousands of BBC owners when it first came out 
and the game remains as popular today as it was then. 

In the program, Paul Mumford enables you to create a super commander, covering areas 





8 eee 


eee ee 


ae 








such as fire power, cargo capacity, missiles and fuel. 


38H 
3596 
4a 
41@ 
420 
438 
4408 
43 
460 
476 
480 
490 
JB 
31@ 


= 
nad we 


it’s a short program to type and in save and it should enhance your game playing ability no 
end. ! | 


REM ... Mega Clite Commander .-... 
REM 

REM (€C) FPaul Mumtord if66. 
REM 

MODE 7 

FPROCcur sor (&2@) 

AY=2AB:s XAZA=&HO:s YA=.uBE: AH 
F%=(USR(REFDA) AND &FF > 
RESTORE 

FOR L%v=1 TO 1a 

READ D# 





FOR Mz=1 7O 16 STePs2 
CYH=CZATEVAL ("&" 4M IDS (DS MA, 2)? 
NEXT 
NEXT 
IF C%<3&2821 THEN VDU 7:PRINT “Sommander MEGA checksum erro pend ea 
PROCdouble t "COMMANDER MEGA STATUS: "3 
PRINT | 
PROCdouble ("MAXIMUM FIRE FOWER ON ALL FOUR LASERS", 
PROCdouble( "253 TON CARGU CARRYING CAPACTTY"') 
PROCdouble ("48 MILLION CREDITS") 
PROCdouble( "255 MISSILES”) 
PROCdouble ("ALL SHIF EXTRAS FITTED": 
PFROCdGouble (ELTIE STATUS") 
PROCdouble ("25.5 LIGHT YEARS OF FUEL": 
PROCdouble ("HIGH SFEER ENERGY UNITI"> 
|} PRINT 
PrOCdouble("PRESS SFACE TO SAVE COMMANDER MEGA") 
REPEA!I 
UNTI£C SEI > 
CL.S 
IF Fue1 OR FA2=2 THEN DX=OPENOUT ("MEGA") 
It F%=4 OR F%=S THEN DY=OPENOUT("E.MEGA" 
RESTORE 
FOR L“A=1 TO 1 
READ Ds 
FOR MA=i TOS Stee = 
BYAzEVAL 6" "4MIDt (DS MA, 2) ) 
BEUT# DY,BA 
NE T 
NEXT 
FOR L24#=8580 TO SFP 
BPUTH De, & Oe 
NEXT 
CLOSE# DY 
PROCdouble ("CUNMNANDER MLGA SAVEL" 
PReObcur sar (48; 
END 
DEFFROCdoubs e (SF) 
LOCAL TS 


TAe20 (LEN(S#) DIV Sod 





EEE 


S3aQ@ PRINT TABCT%) 4 CHR#(141)56¢ 
S40 PRINT TABCIA) s CHES (144)5o4 
S56 EMOrROC 

568 

Rie DEF PROCcCUur Sor (275 

S90 VDU 25,0,10,7%,0,8,8,2,6,@ 
599 ENDPROC 

5aa 

610 DATA "O61 4eD4a5a4pue5n" 
628 DATA "E717 D7 B48e TOBE" 
638 DATA "FFFFFFFFOUber Frau” 
H48 DATA ' QuBBBTABadacaaEE” 

S@ DATA "enaeraneezagaau.” 
460 DATA "PREF -P Larrerrr |g” 
G78 DAA "AQOBBOE! Bia Oeii. 

686 UIA gee (orcad chosctnieohica 
698 DAI “Lis e729 BeMBwaBe" 


PW Ghar : tii rae ieeocaine 


i ee ie ee ee de i ee ee ee ne ee ee en ne ee ee ee ee ee ne ne en nn a a 


A AFPHORISATION | 





CBM 64 


What can you say about Space Invader-style games that hasn’t been said before? They’ve 
been around for ages but time hasn’t dulled their playability. 

David Swinnerton’s variation on a familiar theme is called Ultimate Invaders. 

Hit the space bar fo start a new game plug the joystick into port two and get zapping. 


190 REM ## eee EKER REE RRR ERE % # % 140 IF SC#2HIS THEN HIé=SC4% 
HEE REESE hy 27 REM 2k eee RSS REE ERE REE EERE HE hy 17Oo GOSUB SOO : GOSUB 740 
11 REM * Wiichiteiiadaiale Wo «171 ~FORT=SOS1STOSOS30: POKET, 0: NE 
* 2B: xT 
iz? REM * ULTIMATE INVADERS ee 29 : 300 GOTO 130 
- #0 398 
iz REM # &, 40 POKE46, 50: POKE48,50:POKE5S0,50 & 399 : 
* ty 100 V=SS248:HIS="0OO000"S SCS=HI$ Q 400 FORT=0TO1372: READD: POKET+471 
14 REM # A MACHINE-CODE GAME ‘ 110 GOSUB So0O : REM TITLE SCREEN N §2,D:NEXxT 
BY * izO GOSUB 400 : REM READ DATA 410 FORT=0T07468: READD: FOKET+1541 
15 REM * \ 150 PRINT" :FORT=0TO20:PRINT Mm 6, D: NEXT 
* Woos NEXT §y «420 RETURN 
ié REM * DAVID SWINNERTON = 131 FORT=OTOS9: PRINT "IO" 3 2 NEXT y 498 
‘ 132 PRINT" *HI a sHid:"% SCORE N 499 ae ek cea 
* -s aF 1 - PAUSES": 500 POKESS28i peg el Sore Tey 
i7 REM * N 134 FORT=0TO20:A=INT(RND(O) #@00) % SiO PRINT" a- ae I eh 
* QW FPOKE1O24+4, 146: NEXT + 3 a rs 
os REM «* y im5 SYS4915 \ rae CF PR RINT" a Fi | lid j ‘a oe Py 
: t 140 T=": FORT=2004T02009: Te=T#+ a ee ter ie 
24 REM * (C) 1984 STR& (PEEK (7)-48) :NEXT:SC#="" N 550 PRINT" 11 Sine OL bs eid 
* N 150 FORT=2T012STEP?: SC#=SCS4+MIDS Re le eres i PI ae 
25 REM * NT, 7,19: NEXT aka a les aL lA SINE ork OS 





= 











eel el olsen ty 
SSO PRINT" ITI TE Lae a ory 
[| ‘= | | | | oe ue 
S90 PRINT" | *-~tlomertl oTtle 
bbeoomms! li iste apcian ey 
SC y PRI Ne a nr a ae a kl 
595 PRINT sn «BY DAVID 
SWINNERTON" 
400 FRINT" a ao, 

"4 
510 PRINT" ——_. 
lett =tah tig oem | renee, oa 
SSO PRINT’ Pees i ihe es 4 
- =| elt ts 
Becerra oeilell lat val 
eet 1] “itl us 
S70O-PRINT" Ullal PLA St 
ee ee ee 
S80 PRINT" TIlllS til tlil del 
ee ee ee 
690 PRINT" [lil “SITLL [14° 1! 
Itt iceaetace false 
rAat) PRINT" lett PEL bl eet 
wt | oe ee 





BRC TCE NE) WADE cS eae 


—— i, &§_f ——" J fs 


720 PRINT" lv — 


eeenenrnenennencennncnncnns! f FE 


Ta el at Ri eae eames 








735 RETURN 


Foo : 
740 PRINT: PRINT "@i HI-SCORE - " 
sHIS; " SCORE ~- ";SCs$ 


750 POKEV+4, 70; POKEV+S, 110: POKEV 
+6, 20: POKEV+?, 110: POKEV+8, 150:P0 
KEV+?, 100 

760 POKEV+21,12:POKEV+16,8:FPOKE2 
040, 207:POKE2041, 208 
770 PRINT" a 

EE TO PLAY"s "= 

799 WAIT 197,40 

800 RETURN 

9389 
220 
791 
992 


PRESS SPA 


SSS : PEER EREEEREE ER ER EERE SERRE EE 
eee EEE 


[94 :% 
a. 

Firth aoe MACHINE-CODE DATA 
* 

795 2: 
” 


SS) 1 eee REE ERE REE ERE eee 
eee eee 

aoe = 

7 

1000 DATA 169,1,141,83,197,141,8 
Be ly 169,20. 141, as 212,169,5,141 
,& 

1010 DATA 212,169, 20,132,251,169 
0, 141,32, 208, 141, Seep 141,86, 


197,149 

1920 PATA SS5B,141, 

141,212,7,141, 215, 

1,215 

1030 DATA 7,141,214, 7,141,217 ,7, 

169,247,141, 47,197, 32,197, i922, 32 

4 oF 

] 1040 DATA 174, 24,173,864, 197,208, 
ee See ea 245,144,10,169, 

rol 444 

1050 DATA 7, 208,169,0,141,152,19 

p2c4, 173,21, 208, 201,35, 208, 65,2 


28, 208, 169,48, 
7, 141,214,572 14 


1960 DATA 197,5175,86,197,201,2, 1 
a4, Pibek 169,90, 141,86, 197, 175,83, 14 


i070 DATA 5,176,231, 228,87,197, 17 
, 87,197,201, 252, 240, 3.238, 87,19 


— ace 
a= 


19080 DATA aes 197,201,0, 208, 1 
~1469,247,141, 4197. 3589 ee Ue a a 


Sy a 


ee ee ee an ene EE EAA AEA AAA MPEP PAPA PA ae ae a 2 


1090 DATA 234,173,83,197, 141,84, 
197, 76,63, 192,32, 120,193,173,84, 
197, 208 

11900 DATA 14,56,173, 18,208,701, 

50, 208,6,173,83,1977,141, 157,194, 
145,255 

L1ii0 DATA 201,100, 206,3,32, 70,19 

6, 76,66, 192,254, 1697, 244,141, 248, 

ff, 142 

1120 DATA 7,173,87,197,157,1973,1 

Fe,201, 251, 240, 5, 258,87, 197) 1 7s% 

87,197 

1130 DATA 157,201,196, 201,251,24 

0,3, 204, 87,197,202, 224,1, 208, 225 
»1697,0 

11440 DATA 141,14, 220,133, 257,133 
7, aS 135,255,141, 16,208,149, 255, 
141,231,208 

1150 DATA 173,86,197,208,5,1497,0 
»141,84,1977,152,15, 187, 207, 196, 1 

S70 

1160 DATA 208, 202,224,255, 208, 24 

Sy, lowe tas Poy ote LY, 1S7. 1S, Lees 
157,161,176 

1170 DATA 202,173,83,197,157,145 
Pog oy LoL, 196, 232,54, 169.0, 23 

7, 84,197 

1180 DATA 157,177,196, 202,546, 149 
pO, 207,65, 197,157, 177,194, 202, 22 

4,35, 2068 

1190 DATA 212,162,9,189, 233, 196, 
boy, O/, 208, 202, 224,200, 208, 2a5, 1 

62,7,189 | 

1200 DATA 225,196, 240,4,189,137, 
Del 13,16, 208, 202,224, 255, 208,24 
0,32, 110 

12 10 DATA 194,120,169,172,141,20 
9o, 167,194,141, 21,35,149, 241,141, 


26, 208 
1220 DATA 88,96, 224, 173,0,220,16 
2,0,160,0, 74, 74, 74,174, 2, 202, 202 
230 DATA 234, 7A, 176, 2.252, 232,2 


34, 142,145,194, 74, 176,62, 165, 255 

,~201,0 

eo DATA 208,56,32, 2435, 194,173, 
208,141,2, 208 56.173 Ly ROR, BEG 

ce 


2350 DATA 141,3,208,169, 252,141, 
148,176, 149, 1,133,255, 173,14, 208 
7, i 
i260 DATA 205, 14, 2008, 208, 11,147, 
oe tS, 16, 208, 141,146,208, 76,210, i? 
a, 149 
1270 DATA 253, 45,14, 208,141 Nestle 
08,234,965, 173, 30, 208, 133,254, ah 
arn 
1280 DATA 254, 208,5,169,100,133, 
Zod, 76, 24, 165, 2 ee get a a tg ee hae 
40, i 
1290 DATA 96,254, 238, 215, 7,173,2 
13,7,201,58, 144, 26, 159,48,141,71 
anos 
1300 DATA 236,214, 7,173, 214,7,20 
1,58,144,11, 149, 48, 141,214, 74a0c 


747 
gal kw 


1510 DATA 7,173, 213,7,169,0,141, 
148,196,141, 2, 208,123,255, 32.30, 
197 

1320 DATA 1469, 252,45,16, 208,141, 
16,208, 145,254,9,4, 197,254,208, 1 
4,149 

1330 DATA ©, et 194,169,251, 
45,271,208, 141, 1, 208,96, 165, 254, 
9,128 

1340 DATA 197,254, 208,14,149,0, 1 
41,159,196,169,127,45, 21,208,141 
, 21,208 

1350 DATA 96,165, 254,9,16,197,25 
4,200,14,167,0,141, 153,194, 149,2 
39,45 

1360 DATA 21,206,141, 21,208,976, L 
465,254,9, 32,197, 254, 208,14,149,: 
5141 

1370 DATA 155,194, 169, 223,45, 21, 
208,141, 21, 208, 945, 165, 254,9,64, 1 
97, 254 

1380 DATA 208, 14,169,0,141,157, 1 
96,169,191,45,21, 208, 141,21, 208, 
96,145 

1390 DATA 254,9,8,197,254, 208,12 


mpi pietpece ie hradreerememnsnce Ee ee 


ol 


,149,0,141,151,194, 149, 

, 208 

1400 DATA 141,21, 208,96, 162,15, 1 

73,3, 208, 201,50, 176, 22, 173, 16, 20 

a,41 

1410 DATA 253,141,146, 208, 149,0, 1 

41,2, 208,1697,0,135, 255,1497,0, 141 
, 148 


1420 DATA 194,23 $4, 52,212,195 , 24, 
189, 0, 208, 125, 145, 194, 157,0, 208, 
202, 202 

1450 DATA 224, 255, 208, 240,162,114 
, 160, 7, 24, 189, 145,194,201, 20, 144 
of,20k |S 

i440 DATA 235, 174,33, 74 igacl ede 
4,189,0, 208,125,145, 196,157,0,2 
@,144 

1450 DATA 47,224,195, 127,194,13,1 
6, 208,141,146, 208, 169,1, 15%, 225,1 
96,76 

1440 DATA 45, 


000000000 


P47, 45,21 


195, 24, 189,0, 208, 1: 
q 


5, 145, 06,057,0,700,176.17, 55.16 
9, 255 


1470 DATA Aen 1946,45,14, 208, 
141,14, 208, 149, | 
202, 136 

i4a0 DATA ea , 204, 208,175,254, 14 
2,14,160, 7,24, 187,09, 208, 201,40, 1 

76, 34 

1490 DATA 173, 
203, 14, 298, 240, 

7,145,196 

1500 DATA 173,86,197,298,9,24,18 
Fg eg Lg tere) Petey hae ley Chat bated « 
LoS . 

1510 DATA 24,189,0, 208, 201,50,14 
Ae lek Fok y a ety ey cede sig y hoy oe laced 

6, 208 

1520 DATA 206, 20,189,177,196,157 
»145,196,173,85, 197, 208,9, 24,199 
71,208 

1530 DATA 105, 26,157,1, 208, 234, 

02, 202,136,192,1,208, 167,24, 173 

Oo, 208 

1540 DATA 201,465,144, 26,173,14,2 

08,9,1,205, 14, 208, 208,47,169, 254 
, 45 , 

i550 DATA 16,208,141,16, 206, 146%, 
46,141,0, 208, 76, 211,195, 24,173,060 
, 208 

1540 DATA 201,25,176,25,173,16,2 

08,7, 1,205, 16, 208, 240, 13, 169,1,1 

pa 


Br a tee Me fm peat ad 


14,208, 25,137,174, 
,189,141,194,15 


13/70 DATA 16, 208,141,16, 208,169, 


64,141,0, 208, 234,162,15,24,189,0 


, 208 

1560 DATA 201,200,144,9,189,177, 
196,157,145,194 76,245, 195, 24, 19 

9,0, 208 

1590 DATA 201,60, 176, 4, 189,161,1 
6, 157,145, 1946, 202, 202, 22: 3, 208 
, 219,250 

1600 DATA 252.145, 257,197,251, 14 

4, 45, 146950, 130, 252,230, 255, 24, 15 

5.255, 201 

1410 DATA Bytes aa Lose te Le yk tes 
etl Peg eee tel 0 2,224,255, 208, 2 

45,74 

1620 DATA 49,176,169, °¢ 
2, 7, 189. 201,196, 157. 245,.7,207,2 

24,200 

1630 DATA 206, 245,169,1,141,25,2 

08, 76,49, 234,145, 197,201, 4,208,4 
soe 

1640 DATA 110,.196,32,102, 193,74, 

234,169, 244,141, 248,7,120,169,49 
a eo 

1650 DATA 3,169,234,141,21,3,149 
240, 141,26, 208, 169,1,141,14,220 
, 104 

1460 DATA 104,88,169,6 141,32: 20 

4,141,353, 2058, 74, 64,234, 12060,1697,4 

9,141 

1470 DATA 20,3, 169, 234,141,271,3, 
167, 240, 141,26, 208,88, 173,0, 220, 

74 

1680 DATA 74,176,249, 96,564,1,2,4 
,8,16,32,64,128,0,0,0,0 

L690 DATA 2,9,0,0,0,0,0,06,2,0,2, 

gy Os Ot S 


33, 253,1 















LF OOS DATA Oye Oye yy Oey Opes, 0 
0,0,0 Leones ct 
Oo, 254, 0,244, ee 252. eae 252, Poe 


Fiabe i 


1720 DATA 202,244, 245, 255,253, 25 
Sy edo, 20a, 205, 150, 200,0, 190,100, 
a, iso, Toc 
1750 DATA 200,50, 100,100, 150,50, 
200, 100,1,0,0,0,0,0,0,0,2 
1740 DATA 7,14,7, 14, Ce oe eee 
14,162, 30, 138, 168, 185,0,0, 141 
1750 DATA 24, 212,169,17,141,4, 
2,141,0,212,141,1,212,1354,140,85 
g 19? 

1740 DATA 234 7136, 208, 252,172,85 
197, 208, 226, 202, 208, 271, 145, 32, 
141,4,212 

L770 DATA 96,234, GAVE rad theo 
12,169,10,141,1,212,141,0,212,14 
1 rs 

1780 DATA Sly ey oy ele toe oy 1 
41,4,212, 167,15, 141,244,212, 32,64 
,i?? 

1790 DATA 946,134, 252, 122,253,142 
,20, 160,100 , 136, 208, 253, 202, 208, 

246,144,252 

1800 DATA 164, 253, 974, ' 
29,60,0,0,0,0,0,0 

1810 DATA 0,0,0,0,9,0,06,0,0,0, 

o,0,90,0,0,0 

1820 DATA ©9,4,0,0,4,0,0,4,0,0, 21 
pO, iferi.~l?,14,85 

1830 DATA 65,16,63,1,20,85,69,19 
peu, e241, 7,170, 180,10,71,40, Ap 
1840 DATA 21,42, 40, 43,10, 32, nae 
p iy 0,0 O, ig Mele lcs, Gols 


Py elt 


i, | 
1850 DATA 6, ra fee be 4,0,0,0,0,0,0,0, 
Coa 102,90, ch 
1860 DATA 231, Bs Oy 2a. Oa Ogee leo 
O,251,0,0,25 er 234 70 
1e7o DATA OO, oe oe. 0,9,0,0,0,0, 
O,0,0,9,0,0,0 


ct es A eR te Te een el 


lS, 197155; 200, 207,35, 251, 255,0,7 

sai DATA sigh orig et ga loa 
Te a eae Sagi RO alg: che See ae 

2150 DATA 0,224,0,1,224,0,1, 224, 

ey Seed ee 192 


“140 DATA , 15 Dye FS ] 4" 1 or nls 1, du 2 ae yd 
a 61,255, 240, bk, 23 b1, 125 255, Fao bak 
234, eo 

2170 DATA 255,224, 255, 22 eee 
ele Sclelah as elas Solel ye eae Io aes 


63,295, 126 

2180 DATA 15,255,0,0,0,0,0,45,25 

4,0,127, 245, 0,245,193 128,247 

are DATA 128,0, 205, 128,0,2197,0 
246,00, 0, cod, OO, 240, 0,0 

2200 DATA 224,0 "0, 224,0.0, 192, 0, 

Se 192,060, 0, 224,0,0, 46, 


210 DATA 9,14, 6,0,0,0,0,0,0,0,0 
TGA Gat 10,0 
ceee DATA 9,0,0,0,9,0,0,0,90,0,0, 


,9,9,0,0,0 
Bee DATA 0,0,90,8,0,0, 
Bo Fone pet Oe 
2240 DATA 0,7,0,0,/7,0, 
,O,0,111,60,0,219 
2250 DRT ig tg ar ae Date og Py andy 
207.0, 207,204, Op dee. 202,050, 0, 
0,0,.0,0,.0 
S260 REM £ eee EERE EERE REE ES 
1Bao DATA 0,0,9,9,0, 
0,0,0,0,0,0 
1890 DATA 0,0,90,0,0, 
o,0,4,0,90,4 
1900 DATA 0,0,5,90,1,21,20,68,87, 
68,80,29,4, 20, 117,69,19 
1910 DATA 255,113, 7,.167,116, ee 
1, 104,5,16,3, 106,10, 15, 10,2,15 1,2 
1920 DATA 1,3, 255,240, 15, 255, 252 
,58,191,171,57, 174, 155,57,174,15 
ra = 
eee DATA if4, 175,763,255, 255,15, 
hg oe a 234,240, 0,25,0,0,85, 54 


12,0,;0, 790 


Ot. Oe Oks 


ep Bi ee a, O, a, 


,O, QO, 0,0 wy 


eee eee ee ee a a a en en a nn nn nn nn a a 


A 


00000"0 


1740 DATA 0,81,64,0,81,64,1,464,8 
0,1,64,380,1,454,80,1,64 

1750 DATA 80,0,64,64,15, 243,252, 
60,51,15,48,0,5,1,5, 259, 240 

19760 DATA 15,255, 252, 62, 174, i7vs, 
a6, 110, ,10/7,57,110,71,58,191,i/71, 
O54 250 

i970 DATA 255,15, 234, 252,35, 254, 2 
4$0,0,25,0,9,85,64,1,681,80,5 

1980 DATA 44, 84,21,51, 21,220,243, 
1 Bar peed ,192,197,21, L9¥2,213,1, 192, 
208 

19790 DATA 0,192,192,0,192,192,0, 
0,0,0,0,0,0,0,0,0,0 

2000 DATA O,9,0,0,0, 240,0, 
O,252,35,0,192,35,195,192 
2010 DATA © Peps ah Se Rt el ae 
O,2, 170,128,190, ,75,10,121 

2020 DATA 224, aie. 946,10,170,16 
O,2,164,128,0,170,0,1, 65, 64, ss 
2030 DATA 0,64,1,0, bd, o,o, ,Llo 
0, 240,51,195, 204, 192,195 

2040 DATA 3,192,195,3,192,170,3, 
2,170, 128,9,101,160, 11,109, 140,9 
2050 DATA rb asta aah it Sk ae 24 
274, 128,0, ree oF: 1,65, 64, ae 
2060 DATA 1, 1, 64,0, ata oO, .6,0,0 
,0,0,0,.0 0,0 

2070 DATA 0,0,4,0,146,4,0,14,5,0, 
BO,65,0,65,81,45; 49 

2080 DATA 16,65,4,20,170,20,10,1 
TO oO od yee ada hls a brs 
55,215 

2090 DATA 255,42,150,168,15,215, 
240,0,170,0,0,0,0,9,9,0,0 

2100 ae sia 0,0,0,0 .0,0,0,0,0, 
Oy O, O, QO, a 

2110 bata 192,07) 1284057404047 
126,00, 7,128,0,3,192,0 

2120 DATA Se ae a ea ee a 
0,15, 295, 246, 15,247, 252,90, i cuca 
2130 DATA 7,255,127,7,247,191,0 


is: 6S, 
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Battling with aliens from the far reaches of the galaxy is hard enough when you can see them. 
But imagine the extra problems if you can’t see them! 


That is the extra indredient in Transplex, a race against time to beat an invisible enemy. 
The player is put in charge of a Transplex plutonium control station. An invisible alien force 


has invaded the complex, intent on reaching its core and blowing it to bits. 


Using the icon control panel to control a droid you must osale: trap and kill oe Tee 


The icons are: 


Bomb: These can be dropped by the droid. 
Radar: Gives away position of the invader. 
Query: Gives quick summary and object of game. 





entity without destroying yourself. 


DOWNGRADED D 
‘| 
UN UNCLASSIF [FIED 











| 
i 
i 
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Door: Opens and closes doors for the droid. 


TV camera: When moved onto a location it gives information 
useful if you've forgotten where you’ve placed your bombs. 


Hover: Destroys bombs which are not wanted. 
Arrows: These show which way the droid can move. 
Time/Fuel: These must be monitored. 


Cursor controls are Z and X for left and right * and > for up and down. 


1OMNODES 
ZOVDULF, 0,43 03 03 
SOVDUSS: 82027050303 
4OCLEAR: £22=0 
SODIM SWITCH 100 
GSODIM HF (20) Mato, F) 
FOPROCHSET 
SOPROCASSENBLE 
SOFPROCGRAPHICS 
100CLS 
110F%=300: TIME=0: CH4=200:CFPH=3 
2: 0CH4Z=200;: OCF 4=32 
12ORHH=12 RP X=1:5 APA=RAD (4) +44: AH 
“=RND (4) 
130FROCCONTROLS 
140PROCMAP: C¥H=“0:HT=352: HB=S32: FP 
L=0:PR=121%:NT=0 
LSOREFPEAT:FROCARROW: IF CxXA SO T 
HEN 2oc 
160S50UND 186,-10,100,2 
L7OIF CHKS2460 THEN FPROCTOPROW: 
GOTOZ00 
1SOIF CH4>130 THEN PROCSECONDR 
OW: GOTO200 
LeoORPROCTE 
20027 2=0:UNTIL Cx 
2101IFCK=2 THEN 350 
2201F C#=3 THEN 260 
S30VDUS:FOR N=1 TO 20:MOVE RND 
(575) ,RND (1000) :GCOLO,RND(4)- i:F 
RINT'"MALFUNCTION" + SOUND1I? ,-15,RN 
Dison), Los neAT 
24OMODE4: CLS 
SSQ1FCH=1 THEN C#=CHR#F10+CHRF1 
O+CHRE1O4#CHRELO+"Droid has been 
destroyed by the intruder"+CHRS1 
O+" The power station is doomed!" 
+CHR#134CHRS10+CHRE10+"Try to be 


ih 

2601F Cx=5 THEN C#=CHRE10+CHRS 
LO+CHR# 10+CHRE10+" You idiot, you 

directed the droid ento "+CHRS 
10+"one of the mines. "+CHR#10+CH 
R$iS+ "Next time, trey checking wi 
th the T¥.":sGOTOS/0 

PFOIF C4=4 THEN C#=CHR#10+CHRS 
LOorCHRE LO+CHRE1O+CHRELO+" Your dr 
oid has run out of Fuel /time. 

"eCHR#1O4+"Y¥ou should try to be 
more careful with these valuabl 
e resources" :GOTUS/0 
2S0MODES: VDUIS,O,9:0:19,7,14,0 
#FX F,1 
2OOeF RK 10,1 
SOOMOVES OO, 1000; MDVEPOO, Loud: Pr 
LOTES 600 S00: MOVES, S00: MOVE soo, 
O:FLOTAS 600,500: M0VESO0O ,vsPLoTe 
Sy 1200 ,000 

SLOMOVEO ,O:GCOL0O,2:VDUS:FOR N= 
1 TO iS: FPRINT"*#* NUCLEAR ALERT 
ee" s NEXT 

S20FO0R M=1 TO S:FOR N=1 TO 100 
»SOUND i7,-15,N,1:50UND 18.,-15,M 
+20,1:S0UND 19,-15,N4+40, 12NEXT 

SOONEXTsHODE 4: G0TO380 

S40END 

SSOQOMODE4: VDU 19,0, 550819 .7,430 


8 
i. 


S60CE=CHR#1O+CHRF104+CHRS 104+CHR 
f10+"6 DN GRA T-ULAT TON 
S"+CHR# 10+CHRS10+CHRE1LO+CHRS 1 S+ 
"Security: threat has now been er 
adicated! "+CHR#1O+"operation ar 
ing: ":0=(S0000-TIME) /1004+F%:C4= 
C#+5TRS0 


more careful next time! "sS0TOS7 


TOP Pa a Pa a Pa aa a a Pa a eee naa aan nn nnn ee ee eee ed 


N 


S7VOFOR N=i TO LEN(CS):PRINTMID 
$(C#,N,1)3:50UN0D 17,-15, LO+RND(S 
),1:FOR D=1 TO 100: NEXT: NEXT: GOT 
O280 

SE0PRINT****"*** FLEASE PRE 
SS RETURN TO TRY AGAIN." 

SFOREFEATUNTILINEEY (-74) 

400G0TO1i 

4ioEND 

4>0DEFPROCTOFROW 

SOLIFCPH< 192 THEN PROCBONBS: EN 
DFROC 

4401FCP%< 284 THEN FPROCSCAN: END 
FROC 

4ASOIFCE#<576 THEN FPROCHELP: END 
FROC 

460I1IFCFR%< 766 THEN FPROCDOORS: EN 
DPROC 

AJOIFCPR2Z<960THEN FROCTYV: ENDPRO 
Cc 

480PROCHOOVER: EMDPROC 

49O0DEFPROCSECONDROW 

S00GCOL3, 1:PROCM(RP4#2 , RHA.) : 
PROCICON (10): VDU4 

SiLOIFCE%< 384. AND RH%APL THEN IF 

MZCRPR,RHA-1) AND 1 THEN RHX=RH 
4-1: GOTOS60 

SSOIFCP#2384 AND CPA<S76 AND R 
HY<B THEN IF MNX(RPY,RHK) AND 1 T 
HEN RHY=RH%41:2:G0TOS460 

SSOIFCPR2576 AND CPHA 768 AND 
P21 THEN IF MACRFY-1,RHe? AND 

THEN RPK=RPR-1:G0TOS60 

SAQIFCPK%:768 AND CF4< 9460 AND RF 
P4<@ THEN IF MAZCRFA,RHZ) AND 2 T 
HEN REYX=RPH+1:6G0TOS40 

So TIGOTOSIO 

SO6OIF MAC(RPX,RHY) AND 4 THEN C 
4=5 

S7OFXZ=F%-S: PROCGRAPHS 

SEQIF RPX=APH AND RHY=AHX THEN 

CA=1 

SS0GCOLS,1:PROCM (RPY#2,RHA*S) = 
FROCICON(10) :VDU4: ENDPROC 

S00DEFFROCTF ; 

Si101FEP2¢ 4640 THEN TIME=TIME-Se 
H:P ASF Ao 

S20IFLP424640 THEN FREER Ao | IME 
= TIME+S00 

SS30SOUND19,-10,F%/2, 2: PROCGRAP 
HS: NT=TIME: ENMDFROC 

S40END 

450 DEF PROCASSEMBLE 

S460F0RPASS=0 TO 2 

6&70P%=SH11CH 

6BOC 

6700P1 PASS 

700 LDXEO 

710.LO00P 

FS0LDA &CO0, 2 

FSOTAY 

F4OLDA &DOO, xX 

FEOSTA #000, x 

FoOTYA 

77OSTA &D00,% 

FEOINX: BNE LOOP 

7FORTS 

Bom 

BiONE XT 

A2OENDFROC 

SODEFPROCHSET 

B40DATSA"PLUTONIUM CONTROL ","5 
PATION TERMINAL 7", "Unidentified 
droid”,"in dangerzone..- me uim 
mediate action ","required to 5s 
top ","it reaching core. ", "Use 


hj 2 


STEF 2 


SCHEME EEE EEE MEM EM EMME MEME MME AMAA EDEMA EDD MELDED EEE AEDT 


> gaaooroated 


for that particular area. It’s 


Return is for select. 


security droid","to surround al 
ien ","with antimatter 4 mine 
BSODATS"Security breifing:","A 
lien will destroy", "droid on con 
tact, ","also capable of ee 
ing mines, and 'e'is INDETECTAB 
LE. " "Limited time and “","fue 
1 capabilities.","Fress return t 
o ","regain control bs 
BS0RESTORE 840 
_B70FOR N=c TO 20:READ H# (HM): NE 
XT 
SBOHS (19) =H# (19) +CHR#1546+CHRF1 
S72HF (20) sH# (20) +CHRE1SE+CHRE1IS 
:ENDPROC 
BFODEFPROCDOORS 
FOOHD=RH4: PD=RPX: OHD=HD: OP D=FD 
FLiOGCOLS, 1: FROCM (OFD*#2,0HD#=2): 
PROCICON (4) 
F2OREPEAT . 
F30GCOL3,1:PROCM (OFD*2,0HD#t2) 5 
FROCICON (46) :FROCM (PD*2,HD*2) = PRO 
CICON (6) :OPD=FD: OHD=HD 
S40I1F INKEY(-98) AND FD?1 THEN 
PD=PD—1:M2%¢(PD,HD)=M4(FD,HD) EORS 
:GCOLO, 7-3* (MZC(FPD,HD) AND?) : MOVE 
128+PD*128,9460-HD*464: DRAW 126+FD 
¥126, 1024-HD#44 
SSOLFINKEY (-67) AND FD<& THEM 
M4Z(PD,HD)=M4(PD,HD) EOR2: GCOLO, /— 
Se (MACPD,HDIAND2):MOVE 1L2e+PD*1le 
8, 9760-HD*464: DRAW 12B+PD*128, 1024 
—~HD*64:PD=FD+1 
A60IFINKEY(-¥S3) AND HOe1 THENMH 
D=HD-1:M%2(FD,HD)=MxCPD,HDIEORI:G 
COLO, 7 -Ge (MKCPD,HDISMOL) tH1OVEPDEA 
1278,760-HD#*#64: DRAW 12a+PD"1 26,96 
O-HD#44 
P7OTFINKEY(—-105) AND HD<8 THEN 
MZCPD, HD) =M“4(PD,HD) EORL:GCOLO,? 
~6* (M% (FP D,HD) ANDI) sMOVEPD#126,%% 
O-HD#64: DRAW 1264FD#128,9760-HD*6 
4sHD=HD+ 1 
FBOIF TIME?NT+100 THEN NT=T INE 
: FROCALIEN 
SOOUNTIL INKEY(-74) OR Cx 
{OOOGCOLS, 1:FROCM(OPD#*2 ,OHD#2) : 
FROCICON(4) 
LO1LOPROCGRAPHS: EMDPROC 
1OZODEFPROCBONBS 
1OS050UND17 ,-15,50,2 
190400=0:REPEAT:I IF INKEY(-Fe) APR 
D REY MKACRRP-1,RHAD=MACRPX~-1 SR 
WOR 42FPROCM( (RPY-1L) ®2,RHA*#2):6 
COLS,1L:PROGMICON(1):FROCH I CRPA~-1? 
#7? ,RHY#2) SF ROCICON (1) sti=1 
{OSQIF INKEY (67) AND RFR Mat 
BP’+1 RH) =P CRP A+) JRHAP OR 42 FRO 
CMC CRPR+1)*#2,RH482) 2: GCOLS,1:FPROC 
ICON (1) :PROCM( (RPS4+1)42,RHe82) tPF 
ROCICOM( 1) 2t= 1 
1OS01IF INKEY(-105) AND RHA<o It. 
(REX, RHK+L) SMA CRP, RAB ORAS PRG 
CMC(RP##e2, (RHZ+1) #2): GCGOLS3S,1:FROL 
ICON (1) :PROGM(RPYRS, (RHEL) eed P 
ROCICON(1):0=1 
{O7OLF INKEY(-73) AND RHASi Mee 
REY, RAY 1) =M4 (RPA, RHE 1) ORS: PROC 
Mi RPMe2, (RHX-1)*#2):1GC0L2,1:FROC! 
CON (1) :PROCM(RP##e2, (RHA-L) ee) SPR 
OCICON(1):Q=1 
LOBOUNTILO:FOR Weeseo TO Lao STE 
P —-§:SOUND 17,-3,N,1: SOUND 146,-1 
Sy? LENEAT 
{O9OF %=F%-5: PROCGRAPHS: ENDPROC 


Se 





1100DEFPROCSCAN 

11107Z7=1 

1120VDU4,28,5,51,15,21:COLOURI2 
F: COLOURS: CLS 

1130I1F RPXOAPK THEM 1160 

1140FO0RN=RPX TO AP: FROCICON(S) 
2 VDUG,8: NEXT 

1150GOTOL170 

1160F ORN=AP% TO REX: PROCICON (4) 
fVDU &,2:NEXT 

1170I1F RH%SAHK THEN 1200 

1180OFOR N=RH* TO AH%:PROCICON(S 
):VDU 6,8,8,10: NEXT 

1190GOTO 1210 

1200F QR N=AH% TO RHA: PROCICON(2 
I:VDU 8,8,8,11: NEXT 

1210VDUS1,8,9: COLOURS: FROCICON ¢ 
8):REPEAT IF TIME2NT+100 THEN NT 
=TIME:FROCALIEN 

Z220UNTILINKEY (-74)0R C% 

1230PROCCONTROLS 

1240F%=F%-S: FROCGRAFPHS: ENDPROC 

1250DEFFROCHELF : HH=0 

126077=1 

1270VDU4,28,1,31,18,20:COLOURI3 
S: COLOUR4: PFROCICON(8):CLS:FOR N= 
© TO 10:PRINTH# (NM) 3 sMEXT 

12B01F INKEY(=105) AND HH<1i0 TH 


*EN HH=HH+1sVDU 31,90,10,10:FRINTH 


#2) PROCICON (7) SOTH=TH: OTP=TPE 


| eg Nis 


#CHH+ LC) 3 
12901F INKEY(-73) AND HH>O THEN 
HH=HH—-1:VDU So, 11: PRINTHS (HH) 
1S00I1F HH=10 AND INKEY (-74) THE 

MH FROCCONTROLS: ENDPROC 
1S101F TIME?NT+100 THEN NT=TIME 

pe ieedeatnds IF C% THEN ENDFPROC 

132060701280 

1 S30DEFPROCGRAPHICS 
IS40ORESTORE14620 

. 1 S50F%=2000 
1360REFEQT 
IS7OREAD GF fie 
ested N=1 TO LEN (64) afer 

1390 7RP XE VAL. ("&" +h ee 

Pear A+ 1 
14Q0NE XT - 
L41OUNT ILGS src 
1420ENDPROC & 









5: COLOURL 2S: CL. oe 
COLOUR1 31: COLO 
1440TH=RH%: TE=R 
LA50GCOL3.1:PRO 
FPROCICON CF) : 
1460REPEAT: GCOLS i aeReer 
OTH*#2):PROCICON( 7) PROCM (TRS, TH 
14.707P=TP+INKEY (-67) # (TPS) -INK 
EV (-Ga) 4 (TP?d) 
L4807TH=TH+INKEY 4-105) 8 (TH< 8) —iN 
KEY (-73) #¢(TH?1)21IF RNOCS)=1 FY%=F 


= 
‘—— ‘| 
Jo i 


1490VDU4,12:FROCM(9,26) :GCOLO, | 
IF MA(TP,TH)AND4 THEN PROCICUN< 
1) ELSE PROCICON(?7) 
1SOOIF TIMESNT +100 
: PROCAL TEN 
ASIOUNTILINEEY (-74)00R Cx PROCCO 
NTROLS: PROCGRAPHS 
{S20GCOLS .1:PROCM (OTE 
PROCICON (7) sENDFROC 
1 S30DEFPROCHOOVER 
LS40TH=RHKA: TP=RP Ys: OTH] THs OTP= TP 
1S50G6COLS, 1:FPROCM(OTPe2,OTHE2) + 
PROCICON<(12) 
1560REPEAT: GCOLS, 1:PROCM(OTPe2, 
OTH#2) s PROCICON(12) :PROCM (TP#2,T 
H*2) :PROCICON (12) sOTH= TH: OTP=TE 
1S7OTPSTP+INKEY (-67)* (TP<8) ~IME 
EY (-98) * (TP 34): TH=TH+INKEY (-105) 
* (TH<B) -INKEY (-73) #(THE1) SIF RIND 
(4)=1 FuEFY4-1 
LSGOIFMK(TE,TH) AND4 THEN FOR N= 
50 To 1501 SOUND 16,-15,7,1:S0UND 
*NEXT:F=F-10:2M% (TF, TH) =M 
“OTF STANDS i1:PROCGRAPHS 
{S90IF TIME? NT+100 THEN NT= 
> PROCALIEN 
LGQOUNTILINKEY (-74)0R Ch: FROCCa 
NTROLS: PROCGRAPHS 


THEM MT=T IME 


eo OTHE?) « 


=TIME 





i i i i i ee i i ee i ee i ee ee ee ee ee ee ee ee ee ee 


WO scey? 


Se eer Ve ee ee ne 





16105COL35,1:PROCM(OTP#2 ,OTH#2) : 
PROC ICON(12) =ENDPROC 
LS62S0DATSA" 1E2OPSE OCF POSFOSFRO LT) 
QO40404FS8COLF SF YS BREEDER EEE ERE 
AEFFFFOIFF" 
146S0DATA" O07 0607060701 0F00F CHO 
FOSOFO40F81425D464D0F O20702AC5E4H 
S?FS207020" 
1S640DATA"O7 OF OEOCOCOCO4GLFOSHIE 
IG1LBSBFOFOOLOSOS0LOOOSO7O2ZEOCOSO 
OOoOgooOBoCO" 
LS650DATA"OOOCOOCOONOONOOOOE AOS 
FCPCFCFEFSOLOLOOSE FE FFP FOOFOFOEU 
ANOOsoO8oOo " 

1640DAT A" OOOO LB S444 020207030408 
1O102020F O0F OC 1B19S83C3F1BFB9COC 
4EQOESFFFES" 
L67ODATA"O1O 70301 0O0030F LABOEOCO 
BOOOCORO1EBS0302 1301 80F OS 004CRC0OC 
OLIBFOCcoOo" 

LSBQODATA" OOOOOOOOoOFO6C 609000008 
LCFCYCFCFCORBOF OF iF SPORFQOOOLFCRFaSEe 
AB/OSb64FE" 

1437 0DR TA" OOO ooo OOo oOOE | Boo Se 
SOS8S3836830 20 7F PF 7F SELECHIOO? EF EFO 
EOC OC ey , 
L7OODATA"OLOSOF 1723202 7SFS0CHVEO 
E0COOCEOF OSC 2DSCADODOFOFR OF 7 OF QF O 
FOFOFOFOFO" 

1V1IODATA "OOOO OOOOnoOGY LP SP Oecd 1 a 
OF LiAAFFOEO SP YP PR SP AP LP OOOOFOROFG 
FOEaCoOOOI0Og" 

17 20DATA"OLOSO70R 1FSFOS02RBOLOED 
FOF SBFCCOCOOSO303 0303030 200C0CHaCO 
Cococecooo" 

17S0DATA' O0O0S030703 03030270000 
COCGLC ot COOS a LForoyoSso.,Cocor: 









gAP OCONEE AC: CP FFF OOGOOR 
= smc SCO40000F EF EGO 


eae O00" - he 
= 5 SOOO ah aa ae 


LZ SODA T ph oS Tg 1S 
JB 


(hip pag 
pS S _aid : 


PS GE SECOOOOE 


OSE 2O4040E 6E280 


LALPOOrsAd 
1e61FCH4eErs 










MP7 B0DATA"OD" 

1/SODEFPROCTEST 

IS00FORK Neo TO LsFOR M=0o TO 3:6 
=NeX16+Me4+1 26: YOU Si, 
#1,10,8,8,6+2,6+3: NEXT, 

1B1OCALLSWITCH 

1G20FOR N=O TO 1:FOR M=0 TO 3:6 
=N16+hM#44+126: 700 31,N*#5+6,6H*3,6 
,564+1,10,8,8,64+2,G6+3: NEXT, 

1 BSOENDPROC 

LS40DEFPROCM (x, ¥) 

1BSOMOVE 4#64, LO24—YeS2: VDUS: END 
FROC 


L{8S60DEFFROCICON(N) 

1670IF Ne? AND ?P&COO=1 THEN CAL 
L SWITCH 

1Be0TF Neo AND YaCoo=31 THEN Cr 
LL SWITCH 


L8SOIF N2? THEN N=N-1 

19C00G=N*44+1278:VDU G,G+1,10,8,8, 
64+2,G64+3,11,32 

19 10ENDPROC 

1920DEFPROCCONTROLS 

19SOVDU4 ,28,0,25,19, 20: COLOURIS 


2: COLOQURI:CLS 


1940VDU10, 32: FROCICON (1) sCULOUR 
StPROCICON(15) =: COLOURZ: PROCICON( 
11):COLOURS:PROCICON(4) :COLOURS: 
PROCICON (7) sCOLOUR1:PROCICON(13) 

IZsovDU 26,0,27,197,24:COLOURI29 
: COLOUR? : CLS 

17s6o0VbuU 10,32,32,42,o2:FORN=2 T 
O S:sPROCTCON (N) :NEXT 

197OVDU 28,0,31,19, 28: COLOURIZ4 
> COLOURL: CLS 

1f8oVDU 10,32:PROCICON(14):PRIWN 
TSPC (12) ps PROCICON(O) 

19°70VDU28 0,321,197, 20: PROCGRAPHS 
S000ENDEROC 

201 0DEFPROCMGP: GCOLO, 7 


A. “at ne. t OGIO Th Oot? Fi "FY 7- ‘D Hp) mele 1 
= wie " FEPRIF F YF i ‘' t ae ty 1 OW cieete) - f= E Es Es Bs 


N#3,M*2,6,6 


Re MADE aK ce oe Se a a gin eae” cet aM Tt hs ae 


| | 
| 
| 


| 


0 ' Inooouo! 00000 


a 


2020VDU4 ,28,2,17,17,2:COLOUR129 
: COLOUR7:CLS 
2030FOR N=0 TO 16:MOVE 128,444 
N#e64: DRAWLISO, 4484N*64: NEXT 
2=O40F0R M=0 TO 16:MNOVE 1LSbt+Me#1l? 
,760:DRAW 1264+M*128,448:NEXT 
2050PROCM (2,16) :GCOLO,8:FRINT" / 
\"seVDUL0,8,8:PRINT"\/" 
2060PROCM (REY*2, RHA2):GCOL 3,1 
:PROCICON(10) 
2O7O0¥DU4s ENDPROC 
ZO80DEFPROCALIEN: IF #2=0 PROCGR 
APHS 
2O9OTFTIME?20000 THEN DH=RHY: DF 
=RPH ELSE DH=8:DP=1 
21O01F RND(4)=2 THEN 2140 
ZLIOIF RND(4)=1 THEN ENDFROC 
2L2OH1=RND(S)—22P1=RND CS) -—2:0F 
Hi=O OR FPi=0 THEN 2160 
e#/l2OIF RNDi2)=1 Pi=O:G0TO2160 E 
LSE Hi=0:GOTO21460 
2140H1=56N (DH-AHY) Pi =S6GN (DF-AP 
“)3IF HLl=0 OR Pi=0 THEN 2140 
2lS0OTF RND(2)=1 Pil=0O ELSE H1i=¢ 
2léoiF H1i=-1 AND (MACAPR,AHA-1) 
AND 1) THEN 2270 
ZIFOIF Hi=1 AND 
D 1) THEN 2276 
21iS0IF Fi=—1 AND 
AMD 2) THEN 2270 
S1ISOIF Fi=i AND 
D 2) THEN 2270 
S2QOOIF RND(S)« >] 
22#10G6CO0LO,1 
eeeQIF Hi=—-1 AND AHA=1 THEN 210 
© ELSE IF Hl=-1 MOVE APH#12¢6,102 
4—-BH%#64: DRAW 1LSB+APH E128, bo24—A 
HAtG4 she CAP, BHA 1) SMe CAPE AHEM 1 
) OR 1 


(MATAPA,AHA)} AM 
(MA CAPA-1 AHR) 
(MACAPA.,AHA? A 


THEN 2100 


Z2S01F Hi=1 AND AHKZ=8. THEN 2100 
ELSE IF Hi=1 MOVE AP*#128,760-A 
Hi*#64: DRAW 1268+APK*128,960-AHEe6 
4: Mx (AP%, AHA) =MACAPK,AHH) OF 1 
22401F Pi=-1 AND APX=1 THEN 210 
O- ELSE IF Pi=-1 MOVE APRrE128,9760 
~GH%*64: DRAW APKe1L26, 1024-AHKee4 
rMKCAPR-1,8HK)=MKCAPH-L,GHA) OR 
Z 

2250IF Pi=1 AND APX=8 THEN 2100 
ELSE IF Pl=1 MOVE 128+APH+128,9 
60-AHY64: DRAW LSSBt+APHH1268, 1024- 
AHK*64: 6% (SP%, GHAI EME CAPK, AHA) 
k 2 

2260FO0RN=17T010: SOUNDI7, 
NEXT 

227 ODH=AHU+H1: DP=APY+F 1 
2280IF MA(DF,DH) AND 4 THEN 233 
Ch 

2290IF RND(S0)=1 THEN MA(AP%,AH 
“)=M%(APX, AHA) OR 4:FOR N=2o TO 
Oo STEP -2:SOUND 18,-15,M,1:NEXT: 
GCOLS,1:FROCM (AP Ke? , AHX#¥2) sPROCI 
CON(1):PROCM(APY*2,AH“Z*2) sPROCIC 
ON(1) 

Berrien Ge AHY.HAHY+H1i: IF RH 

=AH% AND RFX=AFY BREN Cx=1 

Bao 1 AND AHZ=8 THEN Cx=3 
2320VDU4: ENDFROC 

S330I1F (MA(APK-1,AHK} AND 4 OR A 
FYu=1) AND (MK(APZ,AHZ-1L)AND 4 OR 
AHH=1) AND (MK(APH+L, GH AND 4 
OR APR=8) AND (MK(APH,AHK+1) AND 
4 OR AH%#=8) THEN Cx=2 

2340GO0TO 2100 ; 
2SSO0DEFFPROCARROMW: MOVE OCP%, OCH 
:GCOL 3,2:VDU 5,94 
S360REPEAT: MOVE OCP%,OCH%: GCOL 
S,2:VDU 5,94:M0VE CPX, CHK: VDU94: 
OCPx=CF%: OCHA=CHY 
2S7OCPK=CPA4+32* CINEEY (-467) ) # (CP 
“ZiPR) -S2e CINKEY (-98) )*(CPROPL) 
PSBOCHKZ=CHA+32% CINKEY (-73))*(CH 
ZCHT) ~S2e (INKEY (-105) ) * (CHXYSHB) 
2S90IF TIMESNT+100 THEN NT=TIME 
:PROCALIEN 
2400UNTIL 


~1O,N,1: 


INKEY (-7¥4) OR C% 
24i0VDU4:TF Cx=O THEN MOVEDCR:, 
OCH%:GCOL 3,2:YDU 0,94: ENDFROC 
2420ENDFROC 
2430DEFPROCGRAFHS 


— 





» 7 = errs 


=? ae 






o Wigonuoronouod 
NM Ch=4 oa UD 


24S0ENDPROC 


2440GCOLO,0 

S450M0VE 256,460: DRAW 940,60 
2460M0VE 256,65:G6C0L O,1:DRAWSS 
4+ (20000-TIME) /50, 68:G6C0L0, 3: Drs 


W960,468 
2470M0OVE 960,52:GCOL O,1:0RAWTS 
O-F%*2,52:6COL 0,3: DRAWZ56,52 
S4G0IF TIME >=30000 GR FAt=O THE 


a 
MT i Of 


SCHEME MEME MEE MMMM MEE MOMMA MOM MEE MEME 
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CBM 64 


It’s on the cards you could be decked while playing Pontoon. No big deal, you say. But we bet 
you’re going to like Pontoon by D. J. Bennett. 

It is a full featured, high-res graphics version which plays a mean game according to the 
popular rules, so you cannot stick at less than 16; buy for more than you bet; buy after you’ve 
twisted; buy the last card of a five card trick if you cannot “bust” 

Full instructions are given in the game, which gives the option of deciding who will start off | 
with the bank — or you can let the 64 decide by dealing the cards. (First Jack gets the bank). 

During the game you occasionally get the chance to buy (or sell) the bank — depending on 
who holds the cards at the time. 

The 64 cannot “see” your cards (unless you’ve twisted!) but it’s not stupid and it watches 
your twists carefully. When you’ve got the bank it also tries (successfully) to confuse you by 
betting in a varied manner. 

Obviously it knows if you have a five card trick or a Pontoon and it even takes care of that 
rare event, the Royal Pontoon (three sevens). If this occurs the game is won by whoever is 
lucky enough to get the Royal Pontoon. Both players start with £500, so the first to £1,000 is 
the winner. 

Right, it’s your deal... 


bank)." 

Sso pokeiS6,0O: yb=0:cb=0 

540 getatiifat=""thens40 
550 ifat="a"thenyb=1:gota1o00 
540 ifas="a"thencb=1: goto1000 
S70 ifags<>"a" andas< >" M@andas< >" 
I" thengosub/S00: gotos4o 

S580 fori=1ltoS2:culi}sO:nexts yg=l 
scg=1:print" =" 


THENGOSUBI FOO 

106 IFKER=1THENKR=0: GOTO20 

110 FORI=17T013: READAt: CAS (I) Ss" a" 
+454" ee": CAS (CIF135) ="e"+4Se" om 
115 ChB(I+26) ="fa"+A6+" oe": CAS CI+3 
9) =" m"+4s+" 6": NEXT: X=RND(O) 

140 S$="ene een sys Ci) =H="s":FORIT= 
2TOS:¥SC(1I) =¥SCI-1) +AS: NEXT 

150 C$ 01) =" Sielelelelsleleleleleleleleiel" : FORT 


ontinue. ":pokel9d,O:waiti9s, 1 
1000 ifnmul>4othennu=O;: fori=itose2: 
cudi)=O3;next 

1010 yg=1icg=1typ=O:cp=O: yS=0:c5 
=O2ca=O0: ya=O:be=O:rhl =O: mt=0 

1020 ob#O:ifcb=landnustiandrnd(1) 
+. 9Sthenob=1:gosubl 7000 

1071 bo=O:ifyb=landnutiandrndtl) 
>. 9Sandac¢6840thenbo=1:gosubl 7000 


20 IFPEEK (1)< >S5THENKR=1:GOTO105 ® =STOS: CH (1) sCH (1-1) +A8 NEAT Re S90 gosub7000: gosub4800:printys ¢ 
30 POKES3281,7:POKES52280, 4: DIMCN y 140 M1 g=" SPeleelelelelelelelsies | +s M2S=M1 $+ % 1) ::gosubS97@:printy$(1)3:gosuba 
$(40) N Wile mss=mest"" \ cnc | 
=5 CN$="—OPYRIGHT 1985 (OURNAME N i7O® bos=" N 600 ifmidé(yes(1),2,13="g"thenyb 
SOFTWARE LTD. * " "eacSso0 =l:gota7oo 

40 FORIT=17T040: CNS(1)=MIDS (CNS, 1, & 500 rem, % 410 gosub7100: gosub4900: printcs | 
1) NEXT y SOS print" S=EMMNRBRERRERMidecisi & 1) si qosub@978:printe$(1) 3s gosuba 
50 GOSUBLOOOO:PRINT" Tisietell M JUS on time!" alaTe 

T OPENING A NEW PACK OF CARDS." N 510 print" GEEERMbress fl if you \ 620 ifmids(cco$(1),2,1)="i"thench 
60 PRINT" aNBREBEFLEASE WAIT A FEW N want to be banker." Nei: gote700 

SECONDS. ":FORI=1TO13: READAS: NEX & #520 print" S3EEMEbress f3 if you % 430 gotoS9o 
T: GOSUBIO00: RESTORE ly want me to be banker." Ne 7OO ifyb=1thenprirntm2$" Bayou ve g 
100 POKES3281,1:POKES3280,5:DIMC & 239 print" S8BEEPpress f5 if you &y ot the bank!" 
As (52) ,CUCS2) | | & want the cards to decide." % 710 ifcb=|ithenprintm2s" mi ‘ve got 
105 AD=54291:SR=54292:H1=S54267:L | § the bank!" 
0=54286: WA=54290: VO=54296: IFKER=1 Q S52 print" (first jack gets the § 49720 printm3é"Spress any key to c 





is 


1100 print "Siys(1) 


1022 ifbo=ithencb=1: yo=O: ac=ac+p 


regosub2200:printme$" ak - it’s 
my bank!" 
10235 ifbo=l1thenprintms%"Sbress a 


my key to continue. "i: sys47152: po 
bes3280, 5: g0tael000 
1025 ifob=ithenyb=1:cb=0; ac=ac—p 
PSsgosubseooi printm2’]$" ebhk — it’s 
your bank! ™ 


1026 ifob=1thenprintm3$"4bress a 
ny key to continue. ":sys491S2:po . 


hess 2680,5% 
1030 gosub/0 
heniioood 


goteaiooo . 
OO; gosub/100:ifyb=1t 


3s: gosub48o00: go 
SUbBO00s;printc$(1) ::qosub49o00: go 
SuUbBSOOD 
2000 printml$#"alace your bet.& 
f1i=£10, f3=£5, fS5=£i" 
2010 printm2$"or type the amount 

oe “Peturn’. 

2012 acS=right$tstrstac} 
$lsac))-1) 
2015 printma# "you have £"sac#" ¢ 
limit=£25) "5 
2020 pe=peek (197) :i1fpe-“64then202 


,len(str 


aia Ch 


ifpe=4thenas="10"+chr$(15) 





| 
'_aS eee EEE EEE ME EEE APA PE PP AB ae eae ae enn enn 


sub 7500: goto4l1o 


4140 yqeyoti:ba=0: gosub/O0006: prin 
ty# Cyq) a: qgosub4800: gosubBoo0d ~ 
4145 ifyvtyq)=7oryv (yg) =Soryv (yg 
}=Fthenhl=1 

41468 goto41o0 

4200 ifat< >" a then4sooa 
4210 mt=Orifyt< 12andya=1thenyt=y 
tio 
4220 ifyts 1é6éthenmt=!1 
4240 ifmt=Othenprintm$" 
ck on"ytsgotosono 

4245 ifmt=lthenprintmis" you can 
not stick aioe acer sub Foo: goato4d 
OO 
4300 
4110 
4410 aS ne ete een aa ou can 
net buy after you've twisted! ":9g 


my OWL stat 


ifaSi eR thengosub/ooo: gata 


4320 ifygq¢ ?4orytriithen4s4o 
4325 printmi$"Gyvou can’t. buy on 
4if you can’t bust! "sgosub/so00: 
forde=1to6800:; next 
43350 yorUSiprinty$(S);:gosub/ood: 
gGosub4eb00: gosube@oo00s gato41oc0 
4340 ifac?Othen4240 
4345 gosub22005 printm2%" bho cash 
left. you'll have to twist! "iyg 











3010 cg=2:printcs(2 


» Niouuootuabed 


4905 cvicgi=val (ab) 2itfcy (co) < -Ot 
hen4920 

4910 ifcvicg)=Qandat="a 
gi=trca=1:goto04920 
4915 cvicg)=10 

$920 ct=O0:forj=ltecgict=cttev (j) 
snext:i$=right#(cc#(cg),1)sgosub 
4640:return 

S000 forde=1tos00:next 

S005 ca=O:cg=1lrprintc$(1)3:gosub 
4900: gosubA9S7S: printc#(1) 3: qosub 
Ao1o 


"thency (c 


PgQosub497o00; 
gosubey7s: WPinteeioi, FgqasubBoaio 
2O2O0° ifct=Llandmid#(cc#(1),3,1)< 
evuKMandmidticct(2),3,1)<>"K"andc 
a=ithencp=1 


2030 ifcp=ithengosub2200:printm2 
$°ssorry! i‘ve got a pontoon - y 


ou lose! ":gotoéooo 

2940 ifyp=landcp=0then4soo00 

2100 gosub49o00:ifet>2ithensood 
S195 gosub1lsoo00:ifrp=ithenprint" 
you out! "sac=O:gosub2300:rp=0:q0 
to6645 

S107 ifca=lthenct=ct+1O:ifcti2it 
henct=ct—-io | 




















2040 ifpe=Sthenat="S"+chrs (13) =ygtil:ba=0: gosub/7500 108 ifcg=Sandct<22thencS=1:prin 
OSC a Sage =Sthenag="1"+chr 6 (13) 4350 printyS$ (yg) 3: gosub/000: gosu tEmSébotmis"sifive card trick! "go 
2060 ifpet >4andpe< >Sandpes< >éthen b4800; gosubo00o0: forde=1toBb00: ne tods00c 

inputat / Ersqgoto4100 S110 mt=O07;1f yi=ithenmt=1:gotosi7 
2070) be=val (ab) 4260 ifactbvythenbyv=ac 0 

2]OBO ifbe*=acandbe=int (be) andbe> 4365 bv¢=right#(strs$tbv),len(str 5130 ifct=léséandrnd(i) >. Pthenmt=2 
Oandbe« 24then21o0 S$(bvi-1) 

BOO gasub2200: gosub7SO00:gotaZ00 4370 Se aN Much toatl wi40 ifet=17andrnd(1) >. Sthenmt=1 
0 a S150 ifct=18andrnd(1)>.85thenmt= 
2100 gosub2200:printmis"Gyou hay 1 

e staked £"atrbv=be:ac=ac—by:gos s160 ifct=l9andrnd(1) >. 9S5thenmt= 
ubsJso00: gotas og ‘ : 1 

2200 printmitbotm2$bosm3$bo$:ret Ft ' Siéo ifcts1éthenmt=1 

ee opt pa & 3168 ifhl=ltandct<19thenmt=1 

2300 ifac>=1000thenac=1000: ac$=' Ni 1+) ._ <*> g. i799 ifmt=1thenprintm3$bosmss" Ga 
LO00": gotoa2s20 c y 1F ieeea=4§ (Ad wore GL Pam (2il twist icgecgtiigosub7100:p 
2505 ifac<=Othenac=0: ac$#="0" 5 ' Ti fpe=Strr = a 2) NA rintes(cg); 

O2z?O q a aaszo itpes oan gt Oe (13) ag ee S175 ifmt=i1thengosub49oo0: gosubso 
2310 acé= sright (etr$aec), len(str ly ABA? Soe gepaeren OO: forde=1toss0:next:printms$bo# 
$tac))—1L) cm en fat WwW: - _ o200 ifmt=Othenprintm3s$bosmss" at 
2315 acé=left$(acs+" Wa) 2 Ti, Ca pat nice * i will stick ##":forde=1tos50: 
2320 print" Ge": Eg $9 andi Cap caer Yt hendsod next: gota6o00 

2325 printtab(= 5) "cash MMM 5 AME Y 4408S 0b 7500: poker ?e, Orqoasub22 w2lO gotosio00 


S000 cw=Oryw=O1ifcp=1thencw=1:ga 
sub/200: gotos400 


hand seat WMBBEE" ace t Mee 'G0t 04570 


4500 by=l1rachac—-1:be=betbhy:i goscub . 


2028 ifybo=Lthenprint "stab (3 


mbes: GEMM] os" 

2550 bes=right$(stré(be),len(str 

$(be))—-1) 

2335 ifcb=1thenprint" W; 
2557 atthe 1 thenprint "SSEREEEEAN 






24 printtab (35) "Sthi si) bet 
| ee SREREE bes 

2245 ifcb}ither print" SBEEREREEIt 
ab(33) "ad be ERB es" 

Zoo return 

S000 ygs2:gasub7O00: gosub4800; pr 
inty$(2)3rifyb=1thengosubs9o0 
2050 1fyb=Othengosubsooo 

SO30 cg=2:igosub7100: gosub4900: pr 
Inte s(2)33ifcb=i1thengosubss7o00 
S070 ifeb=Othengosubsooo 

4000 yp=0:gosub4800 

4010 ifyt=Llandmid#$(yc$ti),3,1): 
oekaridmi ds (yes (2) .4, 1045 e andy 
a=ithenyp=1 


4020 ifyp=ithenprint" SSB6N" tab (15 
)"agreat. you’ vec Rae eee" ; 


4030 ifyp=ithenprint "got a ponte 


an! "sqgotonodo00 

4050 ba=l 

4100 gosub4800:ifyt>2ithenéo0o 

4103 gosub18000:;ifrp=ilthenprint" 

me out! "sac=1000: gosubS300:rp=O: 

gotoé635 

4105 ifyg=Sandyt< 

tmitbotmis" sfive 

£ooo0oo 

4110 printm2s"Stwist (f1), stick 
(FS) or Buy (F535) ?"spokel7é8,o 

4120 getasiifat=""then4126 


2?thenyo=liprin 
Ear. teres soe 


4125 gosub2200 
4150 


ifatc3" Sa" then4é2o0 





5)" aa 


Pd ee ee ie ee i i a i a oi i i i ee i 


‘4569 


2500: yq=yqgti:goasub/O000: printys (ly 
gis 
4505 gosub4600: qosubBood: gasub2e 
OO: goto41 oo 

4800 at =mid#lyc#lyq) 
‘@ thenas=" Gk a! 

4g02 theatirifleft#iycstyq), 1) 


go, il} f1Ffat=" 


= ve He | 


"“tChencoat="""s goato48o5 

4 aod t Ch 23 es OF eh 

4 a Ober ft f y qg 4 = yt al i ath } #4 Ty" i if yf Cj i cst 
hen4e820 

4810 ifyyv (yg) =Oandat="a"thenyy ly 


QI=li ya=1: goto4d20 
4815 yv¢éyg)=10 
4820 yt=0:forj=ltoyg: yt=yttyyv tj) 
SMexEiis=rights (ycslyg),1):gqosub 
4640:return y" 

4840 i1f1%="S"thenss#="Sk a! :ist=" 
Sa: 1$="S"1ilé="9 a": goto4860 
4650 1719="2"thenss$="a: a! :ist=" 
meas le="2"911$=" 8 a": goto48éo 
4855 if1$="A"thenss$="8; W':iss=" 
Sas 1$="A"2ils=" Ba": goto486o 
$9569 ss$="SF A! ist="GAR":1¢="S9 8 
"silts" Gg" 
46860 vit=cost+at: v2$="F'+chrs (val 
(a$)+107)4+" 5" 

4865 ifat="a"thenv2$=" EL a" 
4866 ifat="RE SM thenv2$="B a" 
4967 ifat="4"thenv2s=" EV a" 
4868 ifat="Q9"thenv2$="S a" 
ifat="k"thenv2t="Sx x” 
4899 return 

4900 at=mid#&(cc$(cg),2,1l):ifat=" 
@ thenat=" Rk am" 

4902 tt=atirifleft#t(ecticg), 
"thencos=""a":goto4905 


1)" 


Fe ee ee ie ee ie ie i i i a i on on en i en ee ne en ne en ne en 


6010 ifyp=ilthenyw=1:ob=1:pr=O:ac 
eee ee anes 
OO:gotolo2 

6020 j Aosedehen cae li gqgosub/400:g0 
toé66oo 
6030 ifyS= 
£o66400 
6560 ifyto2ithenprintmisbotmis" 
you're bust! *:cw=1:gosub/400: got 
04640 

4570 ifctr2lithenprintms$botmss" a 
you Win - i’ve Bust! "sywel:ac=ac 
+het?: gosub/7300: gotodsé20 

6575 ifcts=ytthencw=1: yw=0: gosub 
7400; gotodééo0 

6376 ifect«ytthenyw=1:cw=0: gosub/ 
S00: gotoééoo0 

6600 ifyw=lthenprintml $bo#m1$" ao 
k - you win £"be$:printm3#bo#: ac 
=actber2 

eos ifcw=ithenprintmi$bosmis" at 
hat’s another one to me!" 

4620 gosub2300 

6630 ifacs=1000thenprintm2$botme 
S$ ryou ve cleaned me out! "sprint 
m3$bo08;: gosub/200 

6635 ifac?=1000thenprintmss" Sabre 
6s any key for another game.":po 
kel98,O:rwaitiog, lerunioo 

£640 ifac=Othenprintm2tbosm2$" lay 
ou’ re cleaned out! "sprintms#bo$s: 
gosub 7/200 

5545 ifac=Othenprintmst'Sbpress a 
ny key for another game. "“!5ys491 
S2:pokes3280, S:runioo 

6650 printm2$botm2$" 4press any k 
ey for another deal. "spokel?é,O: 
waitifd, 1: qoteio0o0 


lthenyw=1: gosub7300: go 








FOOD b=int (rndt1)#52)+1eifeutiod= 
then/7oo00 
roid nusnutizyo® (ygiscasliyicuti 
=i1:return 
S100 isintirnd(1)#52)+1:ifcudid= 
fthen7100 
[110 nuenutisec# (eg) =caf (i dscudi 
=l:ireturn 
y2o0 rem 
ifep=loryp=ithenk=1 
ifrp=ithenk=s 
ifac=O0orac=1000thenk=3 
210 pokevo, 15:pokead, 255: 
i7:fori=itok: pokewa, 334 
220 for j=s0to7O: pokehi,j:forde= 
fo010:next:pokehi,j+4: 
=395 forde=itosS:next:ifj/S=int (3 
VS) thenpokeSs261, 3: pokes2280,0 
SIH ifj/1Osint (j/10) thenpokesse 
31, 7:poke55260,6 
230 next: for j=7OtosOstep-1:poke 
i,j: -forde=1to1l0:next:pokeni,jt+4 
Shel forde=ltoSimextiifj/S=int 
5) thenpokeS3281, 2: pokess260,2 
7256 #4 /10=int (4/10) thenpokeS32 
B1,7:pokes3260,0 
7240 nextinext: 
spokeS3261,1:pokess280, 
300 rem 
310 pokead, 1S:pokesr, 68: pokelo, 
24:pokewa, 23: foris6o itazastep—-iip 
mkehi a i 
7320 pokevo,i/ 
wewa, O:return 
7400 rem 
7410 pokead, 15: pokesr , 48: pokelo, 
24: pokewa, 2o:fori=2stoos: pokehi, 
i: pokevo,i/S:next 




























pokesr 


okewa,0:pokevo,® 
5 Sireturn 


Sinext:pokevoa, O: po 


7200 rem 

Fai pokevo, iS:pokead, iS:pokehi, 
S:pokelo, iu: fori=iStozstep—1:pok 
ewa, 129 

[520 forde=1toiS:nextipokevo,iin 
=)t:pokewa, O:pokeva, O:return 
7700 rem 

F720 pokead, 15: pokesr, 68: pokewa, 
229: fori=45to45step—-2:pokehi,lip 
okevo,i/10:next 

7725 pokewa, Oo: forde=1toelO: nes tip 
okewa, 1297: fori=BSto238step25:pok 
ehi,i 


T7320 pokevo,i/é60:next: pokevo,O:p. 


skewa, O:return 

S000 qnsub8750: gosub7700 

S010 print"EeMvis" IE! sss" a 4 
SEV i SS" EV v 25" Sede le tee" ss i¢= 
t¢ 
S100 ifvit="a"andss$="%; @'thenpr 
ot" erly 7-HE | HERMES Bee tur 
Srrem ace spade 

3110 ifvi$="a"thenprint"FEGRI" 1s: 


: 


Burn 
2415 ifval (vis) =Othen@2o0 
120 ifvis="2"thenprint' sl") S$" eel 
TERM i lS: return 
Bito ifvite"S"thenprint an] "aCe 
1s "SEREMilé:sreturn 
3140 ifvig="4"thenprintls*arls a 
| /[EEEEEEN i 1" 8 ilé:return 
S150 Lfvis="S"thenprintl sent s°a 
PEEER( 1 "MERI i 1$°eil@:return 
S140 ifvis="6"thenprintls"arls'il 
WEEE 1S a 1° OREREM G1 Salil ser 
etiurn 
S170 ifvis="7"thenprintls"a"1 sa 
1S" OEE 1 sal 1 SEER 1) eee 
L1$rreturn 
6180 ifvit="B"thenprintls al) e°u 
1 $" FREE 1 "8 Lb OEE i 1S" EET" 
ils"eMilS:return 
8i?0 ifvis="F"thenprintls "ells" 
EEV 1S "a1 SOME 1 "RE i see 
="§HRGEMils"eildsreturn 
S200 ifvi$S="SKa'thenprintls "alls 
A A WG iL 
e708 ifvit="Ha'thenprintil fm 
LS" ENGL LS EE ai Le eh ildsreturn 


ber i“ 


7420 fori=25to0é6s: pokehi,i:pokevo 
,i/S:next:pokevo,o: pokewa,O:retu 
mn 


cece eects nea ent ATTA LE LE LET TELE CELT OTOL 


> 






Fe 


nbalpleiGie 5S 


«A 


ee es ee er = 
a as ea at ee eee <2 


52710 ifvit="j"andcot="a"thenprin 
E1$" Beal Glbc (ARERR. Mf ig DER tt 
£7] UNSER A nS 
A712 ifvig="f"andcos="a'thenprin 
("SERS op MEBlgr Wilé:return 
9714 ifvis="q"andcot="" thenprin 
+1" Wes WP Elbc ds E Re Yf iig DEES 
+ j WER: al Sm" 5 
8716 ifvis="j"andco#="a"thenprin 
t" FG ETaen op MEBigr Wailssreturn 
9720 ifvig="q'andcot="a''thenprin 
f' Set a1 $" MBER vy BER: My i WE 
EC MESSI Aa": 
a ifvig$="q"andcot="a'thenprin 
“GSTS! eG EE LS EK return 
ays ifvig="qg" andcos=""thenprin 
£" Set a1" BEL vw: Sy ii WET 
£C SESS] NREEE a": 
87226 ifvis="q"andcos="a"thenprin 
("AGES eH PEED GL "REN return 
8230 ifvise"k"andco$="a"thenprin 
t1$" WR ESE) PRS CR Y, 2 GES. ol’ 
-ONMEEES Sims": 
8222 ifvis="k"andcos="a'thenprin 
t! (EEG SSIBEEI/B il tsreturn 
3234 ifvis="k"“andcos="S' thenprin 
t1$" SR UG) SEG MY, SEES, S/ 
= OMB EI1 eit"; 
724 ifvit="k"andcos="a"thenprin 
(MRS SoMERI 8 il Ss return 
BB99 return 
S900 gosubS950: gosub/7o90 
S910 print’ Te EEC CCOMBBEEP Fo 
RGEC ESSERE FP PGRRERREP EG 
|\BEREEFFRG": 
ao20 print" Sa RHEE FPG mB 
“SGISEERGH I Lid a sreturn 
A950 PE all EST RED REST | 
[SU WRSt Med EET BEE) WEI GT ej Gea Bed 
[ey Otel"; ' 
S955 print"! #02) Wt a fie) Gis] "ae 
"ss return 
S975 gasub/7oO0 
8°78 print "sel 
oS LS 
| MI ss 
S780 print" Ame 
TS "sreturn 
B965 stop 
FOoO0D rem 
9003 dataa, 2,5 
535 45k 
9005 fori=#ébto?4sS:reada:pokel,a 
rnext:sys86s 
9010 forisZO72tose59:readarpokel 
,arnext 
7015 fort =AGLSSto49152+22:reada: 
nGPeiResnex trreturn 
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NIE 


HERR 


A Betis i) 8,9," eee" 
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5 
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o "goo000"o00000! 


1 a Fare Fo Fraps 3. i27 


pol,ol, 


9180 data4,2,4, 40,8, 252, 254, 255 
e700 datalio?, 635,65, 463,126,126,12 
4,254,102, 252, 252, LS A ey ara 
9710 data254,255,124 7.192.247, Tarp 
, 253, 254,24, 4, 258,00, 259, 2A feeds 
205 | 


9220 datao, , 128,192, 224,240,2 
44,255 9 Bea toe [Fees 197i, i Pi 2 


a+ 
a? 


9230 setae aa el rol 

ws 1255, 252,126,191, 2 23,259, 247 
251,253 

9240) data2s9, 247,251,253, 251,247 

, 239, 223, 255, 255,0,255,0, pee eel 
,2o0 

9D SO datavsi, 247,209,225, 191,225 

see eae ol sax aso COAT! Lerner fl 

, 126,65 

9240 data2S5, 251,195, 231,255, 20s 

1.255, 127,251,253, 255,251,2 247,257 

see, ivi 

9°70 dataZi,i5,7,2,1,0,0,9,171,2 

23,257,247, 0,255, 32,24 

72780 datai27,191, 225,239, 5, 254,24 

55, 127,64, 128,64, 40, po, G5,65, 102 

F290 datal27, 52, 126, 124,202,202, 

Fb i 4 102 

9310 data255, 127, 65,16, 20,52, 64, 


32,254, 252, 248, 120, 120,40,60,126 
O370 datad,0,0,0,7,9, 57, 124,32,4 


a, ee ore a 324, 285, 255 255 


9330 dataG, 14,16, 252, 2,255, 243,2 
31,254,252, 249, web. he Poly OS 4 i a 1 
Fi 


9240 datai27,127,63,65,65,63,45, 
G3, 207, 207, 207, 159, 159, 159, 63,65 
9350 Haein. 159, 207, 251,245, 249 


ae =4 ~o2,02, 1 La = 1564, 154, 156,46 
, 124 
ae data127, 63, 51,207,231, 243,2 


47, 249, ¢ eles 5 Faken Wed ; 249, AD, 245, o 


4342 = 


Pay ,2 


9Fa7O ae SP 52, Sor eons ede, Soe ee 
~s2u4,2 4,253,249, 24s, 203, 207,159 
,o25 127 


9280 datatsi1, 207,255,64,65,39,8, 1 

by foley Soy Se i Soe gy ey 

F370 data62, 156, 144, 2274,0, 

62,50, 60, 530,30, 31, 63,12 “yr 

F400 data4,2, 4,40,8, 252,254,205 

9420 data24, 607, 60,90, 255, 255, 70, 

24,0,16,56, 124,56, 16,0,0 

vine datad, 16,546,124, 108, 14, 56,0 
, 106,12 24,1 2A, Sb, 14,0, 

5440 fer age 16,56, 54, DSA, uated O., 

0,8, 28, 62, 28, 8,0,0 

9448 dataZe,a 182562, 28, 8,0,0,9,8 


Eine 


0,0, 0, 


7) si at aha, 141, poo tes ace ty , 28,627, 62, 64,9, O,8,42 427,42 28, 
ipso. 8, 162, TM BR GO, co ,o,;8 0,0 
eee dat ai ay Te PRE») 87, g AW oqes eno detno seis nee. 
Oy157 ay 1 Oey: is, OR Pile 16,0,0, 14,56, 124, 124,108,0,0,6,8 
oso’ datata2, 0, 48 bz M2 69. “Wade 27,42, 28,8,0 
gy» 245, 157; the 13,289, OP2aaS 152, yh by oe 2 3 Q 
m4; = ae oe. | 70) da a0,0,0,%, sue »25,0,0, 0 
2460) davagag 0 ree AQ. a, 102 Seco ane. 0, , a8 is 
2} rt ey = _ a 2 2, Fae ue 
= 70 gat 16th sya a, 16451, - 7480. datad, 25,6,25,4,25, 6,25, 102 
, PALO, 167,1 4) 208) re, , See, Loe ,155,102,153,192, 155 
a dat aaatigel27 62, 1 ae 4B he 9490 datete 152, 96, 152,96, 152,76 
32, 254, 252, 24 a Peo: on 4, CEB! Ry 82.6, 25, 6,25,6,9,0,0 
a4 Beg 
9100 datad,o,0 nes 9,57, 12 aa ithe, 
9.32.63, 224, 2552 255, 255 . 


9110 datazs4, 255, 127,253, 2,255,2 


eg Doody 54,202 s2a9o 2 Oe Del pay gt 
59, ivi 
9120 datai27,127,65,65,65, 65,63, 


Us 207267, 2075 159, i5?7, 157,635,635 
9150 datal#i,is 207, 231,243, 249 
ea oe 62, oe ae 156,155, 154,64 
é, 


Bes  deetax fo: 31, 207, 251, 245,2 
AG, 249, 252, 252, 249, 249, 249,245, 2 
az, BAS 

F150 data252, 252,252, 252, 252, 252 
, 254,254, 255,249, 245, 205, 207.159 
Jha eee 

9150 data2d1, 207,255, 64,191,254, 
255, 127 255, 285, 255, 752524, 3,4 


“ea 


9170 dataoz, 156,144, 22¢ one 


iy 
= Ss 
aie 


= 


‘aye 9500 datalo2, 185, 102, 185; 


Matp 10 Lita. S(einia ets ie aes 


ie eer en ae 


as ss a: 


a oe 
me — 


102,0,0 


#2 ,96,152,96,152,96,0, a, 0 


206,0 
95350 dataloz?, 102,102,,126,102, 60, 
24,0, 1246,4,12,49,64, 70,60, oO 


7540 Prieier 102,96, S4,74, 102,40, 

0,95, 96, 254,100,104, 112,96, Le) 
9550 datado, 102, 96, 96, 62, &, 126,0 
,60, 102,102,62,4,102 7oRS 

7560 dataz4, 24, 24,24, 48,78,124,0 
,40, 102, 102,600,102 102,60, 0 

GE7O dataG0, 102, 96, 124,102,102, 6 

O,0, 115, 219, 219, 219, 219,217, 114, 

) 

9580 datazs, 54,468,438, 48, 44, 
vo ole , 102,102,102, 60,0 

9590 dataio2, 54, 30,14,350,54,192, 

a 

9610 


20,0 


datao,%,0,' 





OF gy Body Sy Soy Soy 


9620 datad,0,0,128, 192,224, 240,2 


40,15,15, i 1S y foe os 7,3 
7630 data2 255, 255, 255.255, 2o0, 2g 
pedo, 200, 248, 248, 248, 248, 248,248 
, 240, 224 

9640 datad,0,0,0,0,0,0,0, 201, 28, 
62, 127,0,0,0,0, 128,0,0,0,0,0,0,0 
94650 datai91, 225, 239, 247,0,255,3 
2,24 

9670 dataS, 28,62,127,642, 
2,26, b27,127,652,2758,58,0 
9480 data, 26,42,127,127,127,54, 
0,24, 70, 255, 255, 970,60, 40, 24 

9710 datai2o0, 252, 255,129,153,129 
, 153, 129,60, 126, 255, 129,153,129, 
tas S35 

9720 dataé0, 126,255, 153,137,129, 
145,153, 30,45, 255,153,147,135,14 
Ee iS 


28,8,0,4 






7730 data255, 255, 153,255, 153, 2558 
pve Lae 5 Papa be fe 255 r 255 + 153, ody 133, 2oae 


(ote oe 
$740 data255, 255, 153,255, 153,2 
Pay .e Die ely eels 153,25 3,153, 43901 
53,255 
9810 datalé2,0, 142,32, 208, 142% 


~205, 142,32, 208, 232,274,090 
F820 dataZz4o, 240, 165,197, 204; 
240, 235,96 ns 
2999 return 

10000 printchré (14): 
eee) PONTOON (OR BLACKJACK 
Ve 


print” Sjelkoa -| 
OR 21} 


10010 print" See BP PREP eER EY 2 a 

BENNETT" 

10050 print"“fkEBWhen playing, 
e 64 cannot ‘see’ your cards 
onest!) -— but": 

10060 print” it can ‘see’ any y 
 ou've twisted and it’s not stupi 

di" 

10070 print"seThe usual rules: ap 
Ply, so you cannot:-" 

10080 print"amil. stick with less 

than 14," 

10090 print"sbt. 
an you bet," 
10100 print"emB, 
gd of a S card trick 
cannot bust, " 

10110 print" ssK. ree after you'w 
@® twisted." 

10120 print"'GEvery so often you 
‘ll get a chance to buy or sel 
1 the bank": 

10130 print” as appropriate." 
10140 print"teGood luck! You sta 
rt with £500 each so if you get 

to £1000"; 

10150 print" you bust the 464." 
10160 print" See eee PRESS ANY 

KEY TO CONTINUE ‘Sieiete" 

19170 forq=1to40: print" SEEEGE"t 
ab (39) en$(q):forde=1toi00: next 
10175 print" SSEEEGR Ia" 

1O18O ifpeek (197) <° erehenGeehcen 
r$(142):return 
10190 next:gotoidi17o 
11000 rem 
11100 print"s!c#(1); 
osubeasoo 
114119 printyS¢1): 
bBooo . 
12000 gosub49O00:r=rnd(i):rifct=1io0 
rendti)>. ?othenbe=20-tr>. 7) #5+ tr 
£2.25) #5: goto01i2400 
A2100 ifct=1l0errnd(1) >. Sthenbe=1 
O-(r >. 7 #5 tre. 25) 482 goto1 2400 
12200 ifct</thenbe=3—(r>.7)+ rd, 
col sgqotoi240o0 
12300 be=7-(r>.7)+tre<,. 25) 

12400 mv=be: gosub2300: gosub2200: 
bet=rights (str$ (be), len(str (be) 
Lime I, 

12430 printm2$"Si will bet 

135000 cg=2:gosub7100: gosub4ooo:p 
rintc$(2)5:gosubs soo 
13010 Geena ni tae wee eee 


th 
(h 


buy for more th 


if you 


gosub4?0o0:g 


©gosub4800: gosu 


£" bes 


buy the Sth car’ 


. 
\ 
\ 
‘ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 






bed 





cecerseerseneensencentenrenrereeseersererrece spree 






“"'me out! "sac=999: gosub2s 


rinty$(2)3 fgosubso00 

14000 cp=Orifct=lLlandmidSt(cc#iti: 
go, LIts"K"andmidsS (cc#(2),3,13<>" 
K"andca=1thencp=1 


14005 fd=2:ifcp=ithengosubissoo0 
14010 ifcp=ithenprint" #fEEEEEEE! 
SEEEEGEEM;tabd(iS) "great. i‘’ve "; 
14020 ifcp=ithenprint" 20000000881 
HiBigot a pontoon! ":gotoisoo0o0 
14050 ba=1 
14100 gosub49700:ifct22lthenisoaca 
14102 ifca=1lthenct=ct+10:ifct>21 
thenct=ct-10 
14105 gosubiBo000:;ifrp=ithenprint 
“you aut!" fac=0: gosub2300:rp=0:g 
otoad4é645 sa 
14105 ifeg=Sandct< 22thencS=1: pri 
ntms$botmsé" five card ‘trick! "ig 


—osublS500:gotolso000 


Sepa 2ar tng: 4andba=itheni 





O 


. athet both: : 5 
ae awe (1) >. .chenmt= 
V@ap (1) Shea nt = 


disba= : 100" ir 
14190 ifmt=1 trey a 
OOO: forde=l1to2 sone Patan intm 
$:gato14100 a 
14190 ifmt= Othenprintm3$boe etl 
*## i will stick #*#":gotoiSooo 
14200 be=betmy:my$=rights$ (str (m 
¥),len(strs (mv) )--1) 
14230 printms$bosms$"Gi will buy 
for £"mvs 
14240 cg=cgti:printe$(cg)::gosub 
7100; gosub4900; gosub8@?oo: fd=td+l 
14250 forde=i1to350;: next:gosub230 
O:rprintm3s$bo$s: gotoi4iog 
15000 ya=0: yg=1: gosub4800: yg=2:9 
osub4eoo 
15020 ifyt=1landmid$(yc$(1),3,1) 
C>"K"andmids (yc$(2),3,1)¢2"K "and 
yYa=lthenyp=1 
15030 ifyp=i1thengosub22 
i$" a@you've got a pontoon. 
in!” 
15035 
159040 
15100 
13103 


Bal tsa. 
: Oh Sb 
=e 


OO:printm 
you W 


ifyp=ithen14o000 
ifcp=landyp=Otheni46o00 
gosub4s4e8o0rifyts2ithenié6o00 
gosubisoo0:i frp=ithenprint 
OOrrp=0% 
goatoéé635 

15105 ifya=ithenyt=ytt+10:ifytr2i 
Ehenyt=yt-10 
15196 ifyg=Sandyt<22thenyS=1:pri 
ntmiltootmit' ayou' ve a five card 


trick! ":goto14000 


15110 printmetbo#mest" mt Aspoty (1) 
or stick: (f3)?7":pokel? 
15120. eos get agen ocean 


15220 


15230 


qasub22o0 
ifas=" SP thenyg=ygtri:gosub/ 
OOO: printysS (yg); :gosub4800: gosub 
B00: gotoiSicao 

15240 Pe er Ne el raat 
o1siit 

15250 mt=O:ifyt >Sandyt< l2andya=1 
tERenyt=yt+1i0 


15260 ifyt< 1éthenmt=1 : 
13270 ifmt=Othenprintm1is"syou st 
Lick on"“yt:gotoldsooo 


15280 ifmt=ithenprintmi$bo#mis" a 
you cannot stick at"ytigosub/s0o 
13290 ifmt=1lthenas=" a: gotais220 
15500 2=cg:fork=ltofd:printc#&tk) 
s'Qosubes/S:printcS$(k) s:cg=k 
15510 gosub4?00: gosubSo1ldsnextic 
=z gosub4 700 

15515 ifca=ithenct=ct+10: 
thenct=ct-19 


rm 


ifct>21 





ae SS) anime 


at fp tHevaine 
=iib4 * 


crenerireressssecsssesssasensseacesassas ines Pe 


15520 return 

16000 cw=0:yw=O02ifcp=lorcs=ithen 
16005 - 

146003 gosubissoo 

16005 ifyp=ithenyw=1:ac=act+be:go 


sub 7/200: goto1l4é20 

16010 ifcp=lthencw=1!:ac=ac—be:cb 
=Liyb=O!:nu=50 

16015 ifcp=ithenprintms$botmss" a 
now it's my bank! "sgosub/200: got 
016649 

16020 ifys=ithenyw=1: ac=ac+be: go 
Sub73007goto14420 — 

16030 ifcs=1thencw=1: gosub7400:q 
otoldé6o0 

16100 Llfct>2ithenprintmstbosmss" 
si‘ve bust. "syw=1l:gosub7Ss00: gota 
144600 

16110 ifyt*21ithenprintmlit$bosm1s" 
g@you've bust. ":cw=1l:ac=ac~be:gos 
ub/400: gotoal4ss20 

16420 ifytr=ctthenyw=1:cw=0: gosu 
673003 gotoalds400 

16130 ifyt<ctthencwe=1: yw=O:gosub 
7400: goto1ié600 

146600 ifcw=1ithenprintms$bosmss" a 


hat 's another one to me! ":ac=ac 
a —-be 
Pi6s1i0 


ifyw=ithenprintmitbotmit" a 
ok -— you win. ":ac=ac+be 

144620 gosub2t00 

16650 iface=1000thenprintm2tbotm 


“$"Gyou've cleaned me out! ":qoasu 
b7200 
16640 ifac=Othenprintm2$botm2$ "4 


you're cleaned aut! ":gosub7200 
* 
16645 ifac=Oorac >=1000thenprintm 
S$bosmsas": a= any key for anot 
her game. ":pokei38,o6 
16646 ifac=Oorac>= {000thensys491 
52: pokes3280,5:runioo | 
16647 goto1ié450 
166468 printm2$bo¢m2$"4bress any 
key Tor another deal.":sys49152;: 
pokeS3280, 5:goto1000 
16650 printm2$botm2s"4bress any 
key for another deal."spokei9s,0 
cwalti?6, isgotoi00d 
17000 ifac>2°9thenpr=150 
17010 ifac« 200andac >?9thenpr=int 
(ac/2) [ 
17020 
rn 
17030 gosub2200: prs=rights (strs ¢ 
pr), lentstré(pr))-1) 
17040 ifcbh=ithenprintmi#" so you 
want to Buy the bank for £"prs" 
ou 
17045 
want 
17030 
or fs 
17060 
L¥O7O 
1¥o8o 
rn 
17090 gosub7500: gotoi7os6o0 
18000 rp=Orifyt=2landyv (1)=7andy 
v(2)=7andyv (3)=7thenrp=1 
198010 ifct=2landev(1)=7andev(2)= 
Yandcvt(3)=7thenrp=i 
168020 ifrp=Othenreturn 
18030 gosub1iS5500: gosub2 
mié"'o0o0d grief 
n!":gosub7200 
169040 printm2$"that’s cleaned "; 
rreturn 
17000 pokeS3280, O:pokeS32B1, O:pr 
int" sabe blease press stop on ta 
pe recorder." 
19010 gosub7300: pokeSs 
SS281,7: return 


ifac< 100thenob=0:bo=0:retu 


ifyb=1thenprintm1$" sido you 
to sell the bank for £"pr¢s 


printm2$"press fi for yes 
for no. ":pokel7d8,o 
getatiifat=""theni7vodso 
ifas=" 2'thennu=50!: return 
ifas="F' thenob=0: bo=0:retu 


200: print 
—- a royal pontoo 


2B0,7:poke 


ready. 


, ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 














ALTTHORISATION 
CINTTIALS ) | 


AUTHOR 
INVESTIG HATING DROID | AUTHORISATION CODE 


NAFS3B4ES 





SPECTRUM 


Mastermind is a computer version of the famous boardgame. When the program is run brief 
instructions will appear and pressing any key will draw the board. 

You must guess the colour code using clues given by the computer. A white peg means you 
got it wrong, black means it was in the right peg. 

Now get set fo pit your wits. 


3 €LS 
REM MASTERMIND BY S.WATSON 
) REM TO FAULA 
1oo GO SUB BO0OO: REM GRAPHICS 
2:0 GO SUB #500: REM VARIABLES 
1:5 GO SUB 6000: REM INSTRUCTS 
20 GO SUB YOOOG: REM SCREEN 


480 IF ¥Y=4 THEN LET Y=0: LET X 
=4+1. 

465 LET ¥Y=¥+i 

$90 G60 TO 450 

200 REM PRINT COLOURED PEGS 

S08 LET O=€@ 


YShO FRINT AT 20,03" Ws 
PRINT AT 17,4: OTNK Gtkos” ® 

G70 LET X=X+1: IF #=S5 THEN GO 
TO 7768 

F/o 6D 1G 760 

Sf PRINT AT 16, 23601) -et2r:C ts 


: o10 LET Y=i: LET X=1i1 »sC (4) 
2 REM RANDOM COLOURS 320 IF T=0 THEN LET Fei: LET D 9890 PRINT AT 20,0; "ANOTHER GO ¥ 
S40 IF X=5 THEN GO TO 300 =i: 60 TO 550 */N": PAUSE t 
7S0 LET C(X)=04+INT (CRND*#4) Sot) LET Pores 785 LET VS=<INKEYS 
255 IF X=1 THEN LEéET xX=2: GO TO S50 LET T=T+1 990 IF Vée="N" OR VS="n" THEN FR 
2) 260 PRINT AT O,P: (INK I[¢t¥i:" " ANDOMIZE USR 1 
258 LET XC=xX-1i erty) 795 RUN 
260 IF CCX)=Ci(xXC) THEN GO TO 2 S70 LET O=O+1i: LET ¥Y=¥+1 Lood REM INPUTS OK Y/N 
= Sao IF Y=S THEN GO TO 400 1010 FAUSE © 
780 LET XC=xXC-i [90 GO TO 540 1020 LET V$=<INKEY# ‘ 
285 IF XC=0 THEN LET X=xX+1i: GO 600 REM PRINT B+W PEG ROUTINE 
To 240 610 LET O=0-8 1030 IF V$="N" OR Ve="n" THEN F 
[0,6 GO TO 240 650 IF B<3 AND WS THEN GO TO 


RINT AT 20,05" 's B 

FEF .1,0: GO TO 300 

1040 BEEP .O5,0: PRINT AT 20,0," 
"; GO TO 400 


70 REM INFUT ROUTINE 
23 PRINT AT 18,7: "INPUT YOUR C 
IRS." 


74a 
660 IF We=3 THEN PRINT AT O,F: 
INVERSE i:" ": PRINT AT O-1 sh 


ia (ot hd 


“Z05 LET Y=1: LET G=0 ; INVERSE 13" ": IF B=1i THEN P 2ao0 REM CHECK THAT INPUTS 








Z10 PAUSE O RINT AT O-1,FP+is" " Pe REM ARE ALL DIFFERENT 

Tii LET V#=INKEYS 4670 IF W=4 THEN PRINT AT O, 204 IF Y=1 THEN RETURN 

Si2 IF Vé="08" OR Vs="g" THEN 8B INVERSE is" "“: PRINT AT ste ral ae BOOMBLET YC=¥-1 

SEP .1,-20: LET x=1: LET Y=1:i PR 5 INVERSE i;" ": GO a oe MF OI¢Y)=1¢YC) THEN GO TO 3 
mp AT 18,73" 690 IF B=3 et “to 


G0 TO 760 
=13 IF Ve="0" OR VS="1" OR VS=" 
>" OR Vee"S" OR Ve=e"4" OR VE="5" 
THEN LET I(¥)=VAL V#: BEEP .9O1 
40: GO TO 3ib 
315 GO TO 310 
518 GO SUB 2000 
S19 PRINT AT 20,G;1¢¥): LET G=6 


"s PRINT 


>> \ 2040 RET YC=YC—-1 
590 IF Bei 


Tet * ger70) Mg YC=0 THEN RETURN 


a - 


co" "248 GHATO 2050 
2 oh | e 





WE 2007 REM, INSTRUCT TONS 

eA Oe) Clie: PRINT AT 1,8;"C OM F 
Lit rR: PRINT AT 3,5:" 4 AS 

a "RM IN DY 

PY 4110 PRINT AT 4,0; "THIS FROGRAM 

[S LIKE THE FAMOUS GAME MASTERMI 

ND.WHAT YOU MUST DOIS GUESS THE 

COLOUR CODE USING THE CLUES GIV 

EN BY THE COMPLUTER.FPRESS @ TO @u 


‘ 
& 
| 
\ 
NOT THE GAME." 
. 
\ 
% 
\ 
4 
\ 
% 





f= ae LEL 
iF Wom 


3270 IF Y=4 THEN PRINT AT 20,4; 
O.K? ¥/N": GO TO 1000 
350 LET Y=¥+tl 


350 60 TO 710 Fac veg 
400 REM B+W PEG ROUTINE 79 THEN GO TO 900 6120 PRINT AT 12,0:"A WHITE PEG 


MEANS THAT YOU HAVE A COLOUR IN 
THE WRONG FLACE." 


Bod TO & 


205 PRINT AT 18,73" 
z B10 PRINT AT O-1,D3" "3 


410 LET X=i: LET Y=1 B15 LET D=D+1 . 6150 PRINT AT 15,0;"A BLACK PEG 
420 LET BRO: LET W=0 820 NEXT M MEANS THAT YOU HAVE & COLOUR IN 
450 IF C(X)#I1¢(¥) AND X=Y THEN SOG KET Yois) LET x=41 THE CORRECT PLACE. " 


6140 PRINT AT 18,0; "ALL THE RAND 
OM COLOURS CHOSEN BYTHE COMPUTER 
ARE OUT OF THE COLCURS O-o 
SHOW! AT THE TOF OF THE KEYBOARD 


B=B+i: GO TO 470 
14460 IF -C¢X%)=1¢0¥) THEN LET WeW+ 


930 IF T>? THEN BEEP i1,-15: FR 
INT AT 17,10; "YOU'VE HAD 10 GOES 
": 60 TO 955 

950 GO TO 300 
955 LET Yi: LET x=1 


i7O IF xX=4 AND Y=4 THEN GO TO 





La 
a = = —S © a = == Ba ee = c ae a = 5 — - ~z_ 7 
lr ee 
a ee a Fe eae oe ae 


o 'doo000"o0000 





6145 PRINT #1: "ANY KEY TO CONTIN \ s010 REM COLOURED FEG=GRaPHICS 4 4 98220 POKE USr ” "42, BIN OOCL11iO 
his eae & BOZO REM B OR W PEG=GRAFHICS B ,» 2 

6150 PAUSE O: CLS & 8090 REM COLOURED PEG (Bee eon ae nes 

6200 RETURN Ry 8100 POKE USR " "+0, BIN OooO0O0 0 

&999 STOF 0 \ 82740 POKE USR " "+4,BIN O001110 

7ood REM SCREEN SET-UP \ 5110 POKE USR " "+1,BIN 0001100 Re 6 

7005 PLOT 7,40: DRAW 33,0: DRAW by ch by 8250 POKE USR “ "4+5,BIN O0O00100 

O,-10: DRAW —-33,0: DRAW O, 18 by 8170 POKE USR " "42,BIN 0011110 " a) , 

7OoO10 LET N=6: LET M=i55 oO B260 POKE USR " "+6,EIN OOoO0no0o 
7020 LET O=4: LET P=112 . 81350 POKE USR " "4+3,BIN 0111111 . a) 

7io0d PLOT O,50: DRAW 255,00: DRAW a) a270 POKE USR " "+7,BIN oodoonD 
0,125: DRAW -255,0: DRAW 0,-125 § ©140 POKE USR " "+4,BIN G1i1111 & Y 

7110 PLOT N,M O A290 RETURN 

7i2z0 DRAW 19,0: DRAW O,-19: DRAW . 8150 POKE USR " "+5,BIN 0011110 ‘ 9500 LET BO: REM BLACK PEGS 
-19,0: DRAW 0,19 a) 4 3510 DIM Cl4): REM COLOURS 

7i50 PLOT O,P . 6160 POKE USR " "+6,BIN oO01100 & #97520 DIM 1(4): REM INPUTS 

7i60 DRAW 19,0: DRAW O,-34: DRAM a 7530 LET T=0: REM TRIES(10 MAX.) 
~19,0: DRAW O, 34 & «(8170 POKE USR " "+7,BIN 9000000 . 9340 LET WeO: REM WHITE PEGS 
7i7voO LET NeN+24: LET O=0+24 Q) 9550 LET X=i: REM COLOURS DIM 
7ise IF N?240 THEN LET O=@: LET \ 8190 REM BH OR W FEG \ 9560 LET Y=l: REM INPUTS DIM 
P#O: RETURN N 8200 POKE USR " "40,BIN ooGOQOO Y 9570 LET XC=O: REM COLOUR CHECK 
7190 GO TO 7110 yo & «7580 LET O=8: LET P=1 

7399 S50 & 8210 FOKE USR " "+1, BIN OODO10O Gee ear eee EE =) 

Boo0 REM GRAPHICS I Ch \ 9400 RETURN 


SHEE MEE EE MMM ELLE MEME EMEA MEME EEE EEDA EEE EEE 


CLASSIFICATION 7) hs AUTHORISATION | 
eae - . iz CINUTLALS 3 
TK Sle 

| AUTHORISATION COD 


66643 166+ 


INVESTIGATING DEOID 


Bla KED 





CBM 64 | 
Spirits of ancient Egypt, Uncle Ugly and Rodney the Droid. What a combination. Bizarre 
doesn’t begine to describe the ingredients of David Estall’s game. 

Mega-villain Uncle Ugly has created a vast underground complex — around 100 rooms — 
each containing a treasure from the tomb of tutankhamen. 

Robot RDN3 — otherwise known as Rodney — must move throught the complex maze 
collecting these treasures. He can generate an electric field to destroy the killer droids which 


protect the stolen goodies. : | 
Remember to avoid the maze walls — they’re electrified. Good hunting... 


EV+(2¥272)4+1,0 

110 POKEV+39+277,9:NEXTZZ:POQKEV+2 
3,63: POKEV+29, 1 

115 POKEV, 140:FORZZ=0TOLOO: POKEY 


S) sFORZ2=1T05: READSD (ZZ) :NEXTZZ 
65 DIMHS# (10, 1):FORZZ=1T010: HSS ¢ 
7Z,0) =STRB(1100-ZZ#*100) 


15 REM 


70 REM (C) 19858 BY D.ESTALL, FOR 


C&eeVG 
20 REM 
=O POKESS5 768, PEEK (546578) ORS:PORE 
56576, (PEEK (S6576) AND252)0R1 
35 POKEG4E, 132:PO0KESS272, (PEEK (S 
S272) AND1IS)0OR16 

40 POKESS280,123:POKES3291,13:FRI 
TCHR (147):CHRS(144);:FORZZ=1T0 
Soo:NEXTLZ 

45 PRINTTAB (240) TAB (214) "PLEASE 
WAIT: ":8G6=5:FORZ7=9O7020: FOFESS2E 
Oo, 6G: GG=18-G5 

SO FORXX=07T063: READGO: PORESSS520+ 
(7FJZ*#54)+KX, GOs NEXTAX, 22 

S55 FPOKESS290,5:DIMM2Z(10,10,1):F0 
R77=17TO10: FORKXX=1TO10: READMZ (xs, 
fii, @) 

4 NEXTXX, ZZ:POKES3280, 13: DIMSD ( 





7 i i i ee i ee oe ee i 


7O HS$(277,1)="THE DROID": NEXTZ2Z 


75 POKESS280, 5:FORZZ=OTO11:FORXX 
=OTO1S: READOO: FOKE49 152422" 16+%X 
, QO: NEXTXX, 22 

Bo DIMNT(14,1):FORZZ=17T014: READN 
T(ZZ,0),NT (ZZ, 1)sNEXTZZ 

85 SYS49152:POKE254, 1:POKE53280, 
13: FORZ2=17T025:F RINT: FORXX=1TOS0 


“MEX TXX, ZZ 


90 AS="DAVID ESTALL PROUDLY PRES 
ENTS...-.":ZZ=RND(-TI) 

95 PRINTCHR$ (147); TAB(43)3:FORZZ 
=1TO34:PRINTMIDS (AS, 72,1); 

100 FORXX=1T050:NEXTXX, ZZ: V=53524 
8: S=S4272:FORZZ=0T024: POKES+Z2,0 
>NEXT?Z 

105 POKEV+21,63:FORZZ=0TOS: FOKES 
4908+77, 544272: POKEV+ (2*272Z) ,0:F Or 


, oe i i i i i et ee i i i ne 


+1,ZZ:FORXX=17TO2O:NEXTXKA, 22 

1270 FORZZ=1460TO?5S5STEP—-1:POKENV, ZZ 
=FORXX=1TO2Z0:NEXTAX, 22 

275 FORZZ=17T09:POKEV+(24#77),117+ 
(26*27):FORXX=OTO1LOS: PORKEV+ (2e27 
>+1.%¥ 

130 NEXTXX: POREV+ (2#22)41,105+¢ ( 
$725) 85) :NEXTZ 27: FORZ2Z=194TO127:P 
OKEV+11,272 

135 NEXTZ2: POKEV+11, 122: GOSUB?O9 
O:PRINTCHRS (19) 5 TAB (255); TABCZ55 
3 "THE DRETE 

140 PRINTTAB(241); "PLEASE PRESS 
ANY KEY FOR INSTRUCTIONS: ":727=1: 
DD=1 9 

145 PORESS280,5D(22): 22Z=22+DD: IF 
(727=5) 0R(27=1) THENDD=-bD 








®o GETAt: IFAt=""THENFORXX=1TO10 
NEXTXX:GOTOL4S 

= TT=14:FORZ7=1T0100: POKESS280 
T:POKES3281,7T: TT=15-TTiNEATZ2Z 
® PRINTCHRS (147)::FORZZ2=STOIST 
—-1:FORXX¥a@0OTOS: POKEV+S9+xXxX,5SD¢2 
sNEXTXX 

= FOR@G=1 T0100: NEXTQO, 27: FORZZ 
=9T011:POKEV+2727,0:NEXTZZ:FORKEVt+2 
1.0: 60T06000 

170 PRINTCHRS (147) 5 TAB (240) 3 TAB 
215);"GET READY!" 

875 SCHO:LIzaS:LV=1:EN=40! X=INT CR 
661)44)44!:Y=INTCRND (1) #4) +4: AR= 
3JJ=127 

9 D¥=0: DVO: XP=1 72: YP=2203:FORZ 
TO1Os FORXX=1 TOO: MZ(2Z2,4%,13= 


et fol (Tet 
Tl iio LA 


tr 


il 


= 


ji) (oe 
a4 ‘ 


IF (ZZ2Z=10RZ7=10) AND(XX=10RA4%= 
) THENMZ(22,%X,1)=64 

30 IFRND(1)<0. 6STHENMZ (22, XX, 13 
Z(ZZ,XX,1)+1 

135 NEXTXX, 22: POKES34806, 43: FOKES 
09,635: PO0KE24810,62:FOKEV+23, 0: 
OREV+29,0 

® REM (GREETINGS TO JIMBO &® RI 
ry 

|S POKEV+3¢9, 14: POKEV+40, 4: FOKEV 
=21,4:POKEV+29, 1: POKEV+37, 10: POK 
— 236, 0 

Zio GOTOSO00 

ZisS=s CC=PEEK (V+30) : GOTO7O00 

220 LFMNSOTHENFPORES4810+KE, 2* (MN 
+472) -PEEK (348104KE)+41:KK=KK+1: IF 
** >NMTHENE RK =1 

Bes POKEV+S?7, 252-PEEK (V+37):G0TO 


Ly 


= pS ie pe Pad tee 
my 


! 


Os 


Fs 
- i 


ry 


Fl 


Now t 


485 REM 

20 REM —-=- RUN OUT OF ENERGY - 
75 REM 
oO XE=2:FORZZ=0TO100: POKEV+t39, 
:POKEV+39, XE: POKEV+37, XE: XE=12 
E:NEXTZ2Z 
95 GOSUBB945: FORZZ=1T05S: POKESS 
9, SD(ZZ) : POKESS281,5D(727) 
10 FORXX=1TOS00: NEXTXX, ZZ: PRIN 
HRS (147) sCHRS (159) 3 TAB(96) 3 "OH 


= 


PRINTCHRS (150) 3; TAB(43);3 "YOU 
HAVE RUN OUT OF ENERGY" 
Oo FORZ7=1TO2000:NEXTZ2:FRINTT 
(47)3"YOUR ROBOT IS NOW USELES 
:GOTOSS1i5 
REM 

REM -=- 
REM 

POKE2ZS4,1:F-OREN=ENTO40: PORE 


A tl (ih ul 4 o th w tf 


HIT A RECHARGER -=- 


if Gl od On 


if a U 


oo 
» OO Of 


2005 NEXTEN: FOKES3280,1:POKEV+21 
EK (V4+21)—-4: POKEV+4,0:POKEV+tS, 


2010 MZ(X,Y,1)=MZ(X%,¥,1)-2:G607T05 


=] REM 


2290 REM -—=- NEXT ROOM -=- 

2295 REM 

2500 XX=XP: YY=VF:GOSUBBT45: XP=X x 
=¥P=YY 

2505 IFXP<2OTHENK=X—1: XP=320: GOT 

2510 IFXP?S3247THENK=X+1: XFP=25 

2515 IFYP< 7OTHENY=Y¥—-1: ¥F=220; GOT 
q2ec5 

2570 IFYPSS25THENY=¥+1: YP=/o9 
£525 POKEV+39, 14: POKEV+40,6:PORE 
$=41,4:POKEV+28, 1: POKEV+S7,10:F0 

SEV+38,0 

2530 FORZ2Z=342727TOS43925TEP40: FPO 

SETI, 20O7:NEXTZZ 

535 FORZZ=so750TOS3S933:POKEZZ,2 
B72NEXTZZ 

2540 FORZ7=24311TO24431STEP40:PO0 
EFZ,207:NEXTZ2Z 

2545 FORZ7=34770T034773: POKEZZ,2 
OF =NEXTZZ 

2550 FORZZ=17028: FOKES4232+22,20 

FePOKES 4432422, 207:NEXTZ2Z: XO=1:G 
BToSo2o 

£°e5 REM 


PPO P POPPI IIIT TPP I POLI PTI IPLAC hhh hehe hh hhlhlr lr hhhhnlnlnl 


4990 REM -=- GOT ARTIFACT -=-— 
4995 REM 

Soac POKESS4,1:FORZ2=1TO1O:FORXX 
=?TO15:POKEV+t4O, XX=2NEXTXX, 22 
5005 SC=SC+(10# LV) :GOSUBBIOS: AR= 
AR+1:GOSUBA9SS 

O10 POKEV+21,PEEK (V+21)-2:POREV 
#2,0:POKEV+3, 0 

BOIS MZ(xX,¥,1)=MZ¢xX%, ¥,1)-4: IFAR= 
1OOTHENS O25 

So20 Dx=0:DY=0: FOR 
(V430) :G0TO220 
SO25 GOSUBSBY45: FORZZ=1TOLO:FORAx 
=17T015: POKESS3280, Xx 
SOs0 FPOKESS281, XX:NEXTXX, 22: FORE 
S260, 8:POKES3281,6 

BOSS FRINTCHR# (147) :CHRS(144)5 TA 
B(i2);"GONGRATULATIONS!" 

S040 FRINTCHRS (5); TAB(¢42); "YOU H 
AYE COLLECTED ALL THE ARTIFACTS" 
SO45 PRINTTAB(41):"AND DEFEATED 
UNCLE UGLY AND HIS INSANE" 
SO50 PRINTTABR(41)3;"ROBOTS! ! 
May NOW CONSIDER YOURSELF" 
5055 PRINTTAB(423):"A CLASS";LV; " 
DROIDMASTER! WELL DONE!!" 


AM 


254,0:CC=#FEEK 


YOU 


SO60 LV¥sLV+1:FORZZ=1TOSOO0: NEXT? 
rn 

Bo6S FRINTCHRS (28); TAB (41); "AND 
NOW, LIKE ALL GOOD COMPUTER GAME 
a 

S070 PRINTTAB(41):"I WILL ASK YO 
U TO ‘PLEASE TRY AGAIN’! !" 

S075 PRINTCHRS (144): TAB(SS) 3" (HE 
E HEE!" 

5090 FORZZ=1TOSOOO:NEXTZZ 


S085 TTS: FO0R22=17T0100: PORKESS290 
, TT! POKES3281,7T: TT=12-TT:NEXTZZ 
S090 AR=0: X=INT (RND (1) #4)4+4: Y=IN 
T CRND (1)*4)44:EN=40:LI=LI41:JJ=1 
a 
SoO95 SC=SC+(LVe1000) :POKES3S280, i 
:POKES3201,1:PRINTCHRS (147) 5 CHRS 
eSid: 
Sio00 PRINTTAB (240): TAB(215) 3; "GET 
READY! ":GOTO180 
S785 REM 
So70 REM -=— 
| 
S995 REM 
6000 PRINTCHRS (3) ; 
£005 PRINT"UNCLE UGLY, 
NUS MEGA-VILLAIN," 
S010 PRINT"HAS CREATED AN UNDERG 
ROUND COMPLEX OF" 
6015 PRINT"100 ROOMS. 
CONTAINS A STOLEN" 
5020 FPRINT"ARTIFACT FROM THE FAM 
OUS EGYPTIAN TOMB" 


INSTRUCTIONS ROUTIN 


THE INFAM 


EACH ROOM 


6025 PRINT"OF TUTANKHAMEN. YOUR 

TASK IS TO GUIDE" 

6030 PRINT"AN RDNS ROBOT (NICKNA 
MED “RODNEY*)" 

6035 PRINT" THROUGH THE TORTUOUS 

MAZE OF ROOMS," 

6040 PRINT"COLLECTING THE ARTIFA 
CTS 4S IT GOES." 


6045 PRINT'TO HELP YOU, RODNEY H 

AS BEEN SPECIALLY" 

6050 PRINT"EGUIFPED WITH A 
IC DISCHARGE" 

6055 FRINT"MODULE’. 

HAT WHEN YOU PRESS” 

6060 PRINT"THE FIRE BUTTON ON TH 
E JOYSTICK (WHICH" 

6055 PRINT"SHOULD BE IN FORT 2), 
THE ROBOT" : 

6070 PRINT'WILL EMIT AN ELECTRIC 
FIELD, DESTROYING" 

6075 FRINT'ANY COMPUTER-CONTROLL 

ED KILLER-DROIDS" 

6080 FRINT" THAT COME NEAR. ALSO 
IM THE COMPLEX" 

6085 PRINT"ARE FOUR RECHARGERS T 


“STAT 


THIS MEANS T 


487T RODNEY CAN USE" 
6o70 PRINT" TO REGAIN ANY ENERGY 
(LOST IN BATTL:." 


6095 PRINT'ONE FINAL OTE: THE R 
DOM WALLS ARE" 
6100 PRINT"ELECTRIFIED, 


OT Be TOUCHED,” 


AND CANN 


FPP PPP TIT TTT TTI TIT IIPPPIPAAAAAAA AAA AAA Aaa aaa ean eed 


Sl See — a = 





TL A 


0 "oo0000"00000 


6105 PRINT" YOU HAVE THREE RODNEY 
S AT THE START OF" 
6110 PRINT"THE GAME, 
N ONE FOR GETTING" 
115 PRENT"ALL THE ARTIFACTS. GO 
OD LUCK! ":GoTOa?60 

6120 FRINTCHRS (17);CHR¢ (31); TABS 
3): "PLEASE PRESS ANY KEY TO PLAY 


AND YOU Gal 


5125 GETAS: IFAS=""THENS125 

4130 TT=10:FORZ2=1T0100: POKESS2e 

O, TT: POKESS261, TT: TT=11-TTsNEXTZ 
7:GOTO170 

64685 REM 

4490 REM —=— DEAD RODDERS ROWTIN 

E om SS es 

6495 REM 

5500 GOSUBSB945: FORZ2Z=17T05: POKESS 
280,5D (22) :FOKES3261,5D(22) 

5505 FORYX=1TO500: NEXTXX, ZZ:FRIN 
TCHR (147): CHRS (159) 5 TAB(9S6) 3 "WH 

oOors!:" 

6510 PRINTCHR# (150): TAB(44) 5° YOU 
HaVE JUST BROKEN A ROBOT" 

6915 FORZ7Z=1TO20O00!: NEXTZZ:FPRINTC- 

HRS (158) 3TAB(S2); "THAT'S"; (4—L1) 
-"SO FAR!" 

4520 FORZZ=1TO2OO00: NEXTZ27:LI=LI- 
1: 1FLI=0THENSS59 

46525 PRINTCHRS (153): TAR C43) 3 "NEV 
ER MIND, I JUST HAPPEN TO BE IN" 
6550 PRINTTAB(43) 3; "POSSESSION GF 
& REPLACEMENT RODNEY" 

6535 FPRINTTABR(43); "PLEASE TRY NO 

T TO BREAK THIS ONE! !" 

6540 FORZZ=1TO4000: NEXTZ2Z: XxX=O:F 
ORZZ=1 T0100: POKESS280, XX: POKESSS 


81, XX 

6545 ¥X¥=1—-XX:NEXTZZ:EN=40: GOTO2O 
a 

4550 PRINTCHR# (152) 3TABC41)3 "WEL 
L, I HAVE RUN OUT OF SPARE RODNE 
YS, TT 

6555 FRINTTAB(40);"S0O I GUESS TH 


AT MEANS YOUR GAME IS OVER." 
6540 FORZ2Z=17T02500: NEXTZ7:FRINTC 
HR$(5);TABR(S)s "YOU MANAGED TO SC 
ORE":Sc 

65465 27=0:FORXX=17TO10: IFSC 2VAL (H 
SS(XX,0) ) THENZZ=XXeXX=11 

6570 NEXTX%:FORXX=1TOSOO0O: NEXTXX 
> IFZZ20THENFORXX=1TO1000: NEXTXX: 
GOTOS4650 

64575 PRINTCHR# (147); CHR# (159) 5"G 
OOD GRIEF! YOUR SCORE IS GOOD EN 
QOUGH TO" 

6580. PRINTTAB(S);"GO ONTO THE HI 
GH-SCORE TABLE! !" 

S585 FORXX=i1TOL2000: NEXTX*X 

4590 PRINTCHRS (1568); TAB (46) 5 "PLE 
ASE TYPE IN YOUR NAME" 

4595 PRINTCHR# (154) TAR CAD) gS" e "5 
= AMIN" s MNO ; 
6600 PRINTCHRS (154)5 "i "sCHRS (197 
3 

6605 GETAGt: IFAAS=""GR (NN=ZOANDA 
Ags< >CHR¢ (15) ANDAAS< >CHRS (20) ) THE 
Noes 

6610 IFAA$=CHRS (15) ANDNNSOTHENSS 
Ch 

4615 IF AGS=CHRS (20) ANDNN>OTHENFR 
INTAAts > NN=NN- 1s NS =LEP TS ONS , NM 
):GO0TO6605 ' : 

4620 TPaa$< CHRS (32) ORAADSCHRS (9S 
) THENS 405 

6625 PRINTCHRS (5) AGS: 2 NNS=NNE+A 
At: NWN=NN4+1 2 GOTOG400 

6620 PRINT: PRINTCHRS (155) 3 7TAR(SS 
y2 "THANE YOUE"s FORXX=17TO20002 NE xX 
TXX 

6625 IFZZ=10THENGS4AS . 

6440 FORXX=9TOZZSTEP-1sHSS(XX+1, 
OVSHSSOXK, OP sHGHCXX+1, 1 HHSSCXE, 
1) :NEXTXX 

6645 HS$(7Z,0)=STRE(SC) HSS (722, 1 
> =NNG 

6650 TT=0:FO0R277=1T0100: POKESS280 
, TT: POKES3281, 77: TT#15-TT2NEXT Zé 
6455 PRINTCHRS(147);CHR# (144); 7A 
BCiO);"ALL<-TIME DROIDMASTER":PRI 
NT 








6660 PRINTCHRS (31); TAB(S) HSS (1, 
1): CHRS (154) ; TAB (25) sHS$ (1,0) 
bo65 PRINTCHRS (144); TAB(49)3"..- 
AND THE NUTTY NINE: ":PRINT 

6670 FORZZ=2T010: PRINTCHRS (149) 5 
TAB (S) sHS#(ZZ, 1); CHR# (156); TAB(2 
5) sHSe(ZZ,0)' 

675 PRINT: NEXTZZ:PRINTCHRS (30) ; 
TAB(3);"FLEASE PRESS ANY KEY TO 
FLAY AGAIN'S 

4490 GETAAS: IFAAS="" THENSS80 
4498 TT=i5:FORZZ=1TO100: POKESS28 
O, TT: POKESS281, 77: TT=16-TT:NEXTZ 
Z 

6690 PRINTCHRS (147) 3CHRS (31) 5 TAB 
(240); TAB(215)3 "GET READY! ":GOTO 
175 é 


6985 REM | 
6990 REM -=- PLAYER INTERVENTION 
6995 REM , 

7000 FE=PEEK (S6320) : IF Jd=111ANDE 


EF >1idSTHENPORES 4903, 43 

7005 IFJITS116ANDEE< 112THENPORKES 
908, 60 | 

7O10 JI=EE: IFEE=127THEN7S00 

F015 [Ed J#1220RIJ=1260RJ0=118THE 
NDY=DY¥+ (DY 21) 

sooo [FdJ=1210R0J=1250RJJ=117THE 
NDY=DY-(DY<1) 

70e5 IF] J=1220R07=1230RI0=121THE 
NDX=D¥+ (DX 2-1) 

7os0 [Fdd=1180RJd=1190RIJ=117THE 
NDX=DX-(DxX<1) 

2935 IF Jd<112THENJJ=111:GOSUB897 
7O4o 
7485 
74gq 
7495 REM 

7500 POKEV+1, PEEK (V+1)+(3*DY) 2 YP 
=WR+ (2eDY¥) pHH=PEERK (V) + (38D8) 2 XP= 
¥P+ (3*DX) 

3695 [TFHH<OTHENPOKEV+16, PEER (V+1 
6) -1:HH=255+HH: GOTO7515 oe 
7510 IFHH? 255 THENPOREV+14, PEER (V 
+414) +41:HH=HH-255 , 
7515 POKEV,HH: CC=PEEK (V+30) : QURAP 
EEK (V+31) 

459° IF (XP< 200RXP 2324) OR (YP< 700 
WR >2?25) AND (GGANDL) =OTHEN4SS00 
7525 LF (CCAND1)=OTHEN?S465 

7520 IF (CCAND2) =2THENSODO 

7525 IF (CCAND4) =4THEN4SO00 

7540 IFJJ>?116THENT5S70 

3545 FORZZ=1TONM: IF (CCAND (2° (22+ 
2)3) =OTHEN7S60 

F550 POKETO4+ (2#27),0:POKE705+ (2 
¥72),02:POKEV+21,PEEK (V+21)-(2°2 
Z+2)) 

7555 SC=SC+5: GOSUBBIOS 

4540 NEXTZ2:GOSUBB970: CC=PEER (V+ 
20) :GOTO!.20 

7565 IF (QQAND1) =OTHEN220 

4570 POKEV+29, 6: GOSUB9115:FORZZ= 
iTO100;POKEV+39, INT (RND (1) #16) 2N 
EXTZzZ 


GOTO7S00 
REM 


REM —=- SCREEN UPDATE -=- 


7575 POKES4808, 61:FORZZ=1TO1500: | 


NEXTZZ:GOTO6500 

7985 REM 

7990 REM -=- ROOM GENERATION —=— 
7995 REM 


B000 PRINTCHRS (147) ;CHRS (31) 3:FO 


RI7=O0TOSS: POKES S91 2422, 207: POKES 
54146+22,4 

R005 POKES4752+22, 207: POKES6296+ 
7Z, 4: POKES4232+22, 207: POKESS 756+ 
Li,4 

BO1O POKES4432+7272, 207: PORESS9S6+ 
22, 4:NEXTZZ: FORZZ=07T0193 POKES SIS 
2+ (77#40),207 

Bo15 POKESS456+ (Z27#40) ,4:PORE339 
914(2Z2840) , 207: POKESS49S+ (ZZ2#40) 
»4:NEXTZZ — | 

gozo IF (MZ (X,¥,0) AND1)=1THENSS=3 
4o7 3: EE=S4S92: TT=40: GOSUBBTOO 
goes TF (MZ(X%, ¥,0) AND2) =2THENSS=. 
TOTO: EE=B39So: TT=1:GOSUBBIOO 

go 30 IF (MZ (X, ¥, 0) AND4) =4THENSS=5 
4211: EE=24431:TT=40;: GOSUBBFOO 
Boss IF (MZ (X, ¥, 0) ANDS) =BTHENSS=< 


i i i 


POPP PPPOE A A ee hl hhlrlnlnlalnllal 


Ay70:EE=247735: TT=1:GOSUBETO0 
ao4o GQO=INT(RND (1) #29)41:98=2425 
34+00:;EE=S5+9: TT=1:GOSUBS900 

S045 GG=INT(RND(1)*#29)4+1:55=2445 
o400: EE=S9+9: TT=1: GOSUBB700: IFXR 
=1THENS BO - 

BoOSsoO PRINT"SCORE";SPC¢(7)3 "LIVES" 
SSPC (3) 3 "LEVEL"; SPC (3) s "ARTIFACT 
S":SPC (3); 

BOSS PRINTCHRS (150); CHRS (18) 3 "++ 
+e+ttee4+'' s CHRS (154) 5 

8060 PRINT Ute EEE Ett Ett He ett ee tt 
eeteeetee" | CHRS (146) :GOTOBTEU 
8065 Y¥O=0: GOSUBBIOS: GOSUBBI1S: GU 
SUBB925: GOSUBS9S5: NN=40: GOSUBRI? 
5 

Bovo GOSUBPOOO: POKEV+1, YF: IFXPs2 
S4THENPOKEV, xP: GOTO808O 
eo7s POKEV+16, (PEEK (V+16)0R1):F0 
KEV, XP<255 

Boao IF (MZ (X,Y, 1) AND4) =4THENFORE 
Ve16, (PEEK (V+16) OR2) : POKEV+2, 55: 
POKEV+3, BS 

8085 IF (MZ (X, ¥, 1) AND2) =2THENPOKE 
V44, 35: POKEV+S, 85: POKEV+21, (PEEK 
(Y+21)0R4) 

Bogo MN=cs NM=INTCRND (1) *S)+1:1F | 
MZ (X,Y, 1) AND1) =OTHENG135 

Bogs hMN= CINTCRND (1) #5) +1)"2:FORZ 
7=1TONM: POKES4810+22, 42+MN+INT CR 
ND(1) #2) 
8100 POKEV+4+ (2282) ,G2+(Z22#30) 2P 
OKEV+5+ (2*22),155 

8105 POKEV+21, (PEEK (V+21) OR (2° (2 
74+2))):POKEV+414+2Z7Z,1 - % 
G110 POKE724+(Z22*2) , 35: ome / See ( 
Z2¥2) , 85: FPOKE744+ (ZZee, ¢ 12 AND 
rate B a” <<, NI i 
8115 POKE745+ spe * 2 hE 
co2) rng eS 4 


1)*#2)% 







>: Ao, (6-LV 





t 
NMD4) =47THENPORE 
EK (wg? OR) | 
Me KK=j@@OREV+21, (PEEK (V+21) OR 
5 CGE (V+30) 1OD=PEEK (W451) 


‘past PRINTCHRS (19) 5 CHR® (144) 5 5FC 


tos): "G0! !":GOSURI060 


SE EEE MME MME MEE MEAT AMAA 


8155 FPRINTCHRS (145) ;SPC(i8);" 
"sPOKE254,0:GOTO2Z15 

REM “** FOUR SPACES IN QUOT 
eS ro } 
REM 
REM -=- ODDS ‘N’ ENDS -=- 
REM 
ago0 FORZZ=SSTOEESTEPTT:POKEZZ,3 
2:NEXTZZ:RETURN 
BIOS SCé$=RIGHTS ("O0000"+MIDS (STR 
#(SC),2),4) 
A910 PRINTCHRS (19) ;CHR$ (30) ;5PC ¢ 
5); 50%: RETURN 
9915 LIS=RIGHTS ("O"+MIDS(STR#(LI 
Lea rael 
9920 PRINTCHRS (19) CHR (30); 5PC ¢ 
17) ;LI#:RETURN 
9925 LVS=RIGHTS ("O"+MIDS(STRE(LY 
eee Bee 
a930 PRINTCHRS (19): CHR (30) ; SPC ¢ 
25) sLVe:RETURN 
A9S5 ARS=RIGHTS ("OO"+MIDS(STRS (A 
R),2),3) 
9940 PRINTCHR# (19) ;CHR® (30) ; SFC ¢ 
37) ;ARS: RETURN 
8945 FORZZ=OTO7: POKEV+ (2#272Z) ,O:F 
OKEV+ (2422) +41,0:NEXTZZ:POKEV+16, 
O:POKE254, 1 : 
950 POKEV+21,0:FORZZ=0T024: POKE 
G+Z2Z,0:NEXTZZ:J0=127:DxX=O2:DY=05% 
P=i72e:¥P=220 
9955 POKEZ4S08, 45: POKES4609, 65:F 
OKES4810, 62: RETURN 
A940 FORZZ=1TOSOO: POKESS296+ INT ¢ 
RND(i)#920), INT(RND(1) #14) +2: NEe 
TEE 


o "goo000"000000' 


qo45 FORTZ=17TO460:POKRESS295+22,4 
-POKES6216-Z22, 4:FORXX=17TO10: NEXT 
XX, ZZ:G0T06120 

q970 NN=EN:EN=EN-(LV/4): [FEN< OTH 
ENEN=0: GOTOS500 

e975 FORZZ=ENTONN: PFORES3832+22, 5 
2:NEXTZZ: RETURN f 

ag9ec PRINTCHR# (19) ;CHR# (144) 5 5PC 
(85): "ROOM (";CHRS(X#64) 3 °/ "5 CHR 
$CYrO4) 90 "G 


ages GOTOeCSS 

8985 REM 

98990 REM —=- SONIX —-=- 
8995 REM 


9000 POKESt+24, 15:POKES+5, 136: POR 
ES+6, 120: POKES+4, 33: PORES+1, 3: PU 
KES,155 

goo5 FORZZ=1iTOSOO: NEXTZZ:FOKES+1 
4: POKES, 73: FORZZ=1TO750 

S010 NEXTZZ:POKES+1, 2: POKES, o4:F 
ORZZ=1T01250: NEXT2Z:POKES+4, © 
9015 FOKES+S, 0: POKES+6, 0: RETURN 
e020 POKES+24, 15:POKES+5, 34: FOKE 
S+6, 120: POKES+4, 17: POKES+1,57:P0 
KES, 1¥2 

7o2s FORT Z=17T0125: NEXTZZ:FOKES+1 
(64: POKES, 188:FORZZ=1TO0125 

F030 NEXTZZ:POKES+1,51:POKES,77: 
FORZ7=17TO12s:NEXT.Z:POKES+1,4/ 
9035 POKES, 172: FORZZ=17T0500: NEXT 
77: POKES+4, 0: POKES+S, O: POKES+4,9 
: RETURN . 

97040 POKES+24, 15:POKES+5, 17:POKE 
S+4, 130: POKES+4, 33: POKES+1, 4: POR 
ES,?73 

9045 FORZZ=i1TO1000: NEXTZZ:POKES+ 
1,5:POKES, 185: FORZZ=1T0750 

Fos NEXTZZ:POKES+1,3:FOKES, 155: 
FORT ?=1TO1S00: NEXTZZ:POKES+4, 9 
9os5 POKES+5S, 0: POKES+4, 0: RETURN 


M9060 POKES+24, 15: POKES+S, 130: POK 
Bo ES+4, 130: POKES+4, 33 . 

mm 7045 41=21Y1=100: X2=1:Y2=10: GG=0: 
SE SP070 POKES+1, X12: POKES, Yi: FORZZ=1 
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TO7S: NEXTZZ: GO=O04+1:X1=X14+X2: V1= 
WitY¥2 

9073 IFQO=9THENY2=—-Y2: X2=—X2 
Fogo IFOG?147THENPOKES+4, O:FORES+ 
5,0: POKES+6, 0: RETURN 

9085 GOTOFO7O 

Foo POKES+274, 15: POKES+4, 65: POKE 
S45, 100: POKES+3, O: POKES+2, 255: PO 
KES+4,195 

909s FORZZ=17T014:POKES+i1,NT(Z2,9 
) =POKES,NT(ZZ,1):POKES+4,65 

7100 FORYX=17TO100: NEXTXX:POKES+4 
,o4:NEXTZZ:POKES+4, 65 

7ios POKES+1,234: POKES, 75: FORZZ=1 
TO2@50:NEXTZZ: POKES+4, 64:PORES+1, 
O;POKES,®% . 
9110 RETURN 

9115 FORZZ=OTO14STEP 7: POKES+5+22 
231 POKES+5+2Z, 255: POKES+4+22, 35 
=NEXTZ2 

FiZo POKES+24, 15:FORZZ=7TOLSTEP— 
i:POKES+1, ZZ: POKES+8, 22: POKES+15 
, ZZ: FOKES,4 

9125 FORK X=1TO2OO:NEXTXX, ZZ: FORZ 
7=15TOOSTEP—-1:POKES+24, ZZ:NEXTZZ 
: RETURN 

9995 REM 

10000 REM -—=—- SPRITE DATA —-=" 
10005 REM 

1oo10 DATAGEO, 000,000,000, 000,00 
0,900,000, 000, 000, 000,000,000, 00 
o,000, 000 

10020 DATAGZA, 000, 000,170, 000,00 
2,170, 128,003, 170, 192,000,170,00 
Oo, 000, 040 

{OOTO DATAQOO, 002,170,128,010,11 
9,160,014, 221,176,010, 170, 160,00 
2,170,128 


10040 DATAOOO, 255,000, 002, 170,12 
3,000, 255,000,002,170,128,000, 1s 
, Ooo, OCW 
1o0s0 DATAOOO, 249,000, 003, 254, 00 
O, O15, 223,128,051, 223, 172,065, 14 
3,224,063" 
Looeo DATAIAS, 224,127,145, 240,12 
ra] 


z Le oe Bar a | * SC eae ac r = 1 
ri 7 a eg 24 Tl ? ill ig i the ot 4 248, or 1 4 ayaa We e ] ae 


= 


ee 


i ia 
“a 4 
i | 


-iv2, 


ee 


\ 
Dob of 


i is F 
Soe 
-— <= - 
mo15 
Se- +s 
= S24 
—* = —* 
8 oe) 
Se 
== 
=_ J+, 
= 
ao=_—_ 4 
yi my 
325 
= 42, 
— 
<——-—_— 4 
= 
Se sae = 
— iy 
coo, 
= = 
ees) 
i, 
— -=4 
— a — 7 
Boi+° 
a 
=oOr4,! 
. 
a F 7 
a. =. 
Ee = 
ee - 
eS 2 y 
re 
—=—---¥F 
= 
—_-r— 


bode fa 


WW ty) to 


Pi Co) a 


Pe Py 
ta 

fi fe ie 
if Cb pe py 


4 


| i | 
= 
= 


Hwee 


-ik hl Ga ao 


rial Cl eit 





Li2 


ee pete hatiestine Bia Ge 


Leet sig ee ee 
223,128, 003, 254,000, 000, 274 
Ooo : 

LEM eae toed ooo, 003, 254, are) 
a psig bit 1 8 es pla pen ee Peg @ be bere ey 
os7 
DATAZS2, 224,120, 248, 240,12 
240, 255,119,248, 255, 255, 24 


| a — 
i tel mall 


DATAZ4SS, 255, 255, 248, 255,11 
124,249,240, 120,248, 240, O53 
DATAOSS, 
255,128,003,2 
Ooo 
DATAOOO, 126,000,000, 1237, 00 
145,000, oot ~9146, 128,001,903 
oof 
DATAQS46, 064,002,074, 044,00 
332,004, 145,032,008,153,01 
O36 
DATAI44, 017,034, 136,018,046 
034,064, 068,039, Zod » O55, O46 
os4 
DATA04S4, 000,144, 255, 255,14 
000,010,064, 000,012,043, 25 
ooo 
DATAOQGS, 


255,096,031,255,19 
54,000, Ooo, 24 


250, 248,064,000, 01 


£900,010, 255, 200, 145, 064,00 


O64 
DATAGOO!] , 034,039, 255,034,093 
058,018, 066,072,017,936,13 
O36 
DATAI44,008,152,9146,004,14 
904,074,032,002, 074,064, 00 





D , 064 
Ba200 DATSAOO1, 0O32,128,001,016,12 
S.0>>, 145,000, 000,137,000,000,12 
=>, O00 
a “age eli optee DS Oats cele 
Bees, 250, 1972,015, 205,2 So ee 
272,000 
Belz DATACIZ, 000,000, 024,000, 00 
= O£2,000, 000, 024,000,000,012, 00 
er, O24 
Bo2—o DATAQIOO, 000,048, 000,000, O2 
2.009, 000,012, 000,900, 024,000, 00 
eS oo 
a ) DATAQOS, 255,192,015, 255, 248 
mes, 255, 192, 015, 255, 240,005, 
me 292,000 ie 
Tet > DATAOOO, 000, 000, 000 miele sm 
8.000, 900,000, 000, c00 000,000, Cray 
o>, O08 
Beso DATAZSS, 172,015, 255, 240,00 
ees, 172,015, 255, 240,003, 255,19 
2.00), 024 
Bez? < DATADOO, 003, 255, 192, 015,25 
2, 005,255, 192,015, 255, 240, 00 
ae, 192 
Bas=) DATAQOO, 000, 000,000,000, 00 
b00), 000, 000, 000, 000, 000,000, 00 
o>, 000 
=oc- DATANOND, O00,000, 000, ‘alelee Oc 
5.000, 000,000,000,000,000,000,12 
os, OOO 
$2500 DATAI2Z/, 255,000, 024,003, 25 
S24, 005, 255, 254, 003, 192, 024,00 
meee 3 024 ; 
H0T:i0 DATAOOS, 192,024, O03, 255, aw 
€.007.255, 294, 6003,000, 024,003, 00 
827,255 
SOs20 DATAOOO, 127, 255,000, 000,00 
b.000, 000,000, 000,000, 000,000, 00 
000,000 , 
ee5TO DATAOOO, O00, 000, 000, 000,00 
oo, 000,000, 000,000,000, 255, 25° 
2.000, 255 
SeS*O DaTAZS4, 000, 192,024,000,1F 
fees, 250,192; 127,255, 1F72,024,00 
SS 292,024 
Bess DATAOOL, 172,024,003, 192 
oes, 1972 127,255, ieee bees 
S24, 000 
BOG40 DATAZSS, 254,000,000, 000,00 
$000,000, 000, 000, 000, 000, 000, 00 
ees 


\ 
\ 
\ 


\ 
* 


Ye de ee i i oe oe A 


\ 
\ 


te 
\ 
. 
\ 
\ 


‘ 
‘y 


, i i i i i ie i en en en en in a 


N 
® 
. 
: 
. 
S 
\ 
. 
. 


\ 
‘ 


\ 


N 
N 
N 
\ 
S 


19370 DATAGOO, 000,000, 000, 
9,000,000,000,000, 
0,000, 000 

10380 DATANSO, 000,000,124, 000, 00 
0,231,000, 001,195,!2a. Os, 129 15 
2,007,255 

10390 DATASZ24, 003, 129,192,001,19 
J, 128,000,231, 000,000, 1246, 000, 00 
0,060, 800 

10400 DATAQDOO, 060,000, 000,000, O0 
0,000,000,000, 000, ood, 000,000, O00 
0,000, 000 

10410 DATADOO, 000,000,000, 000; 00 
0,000,000, a00, 000, Ono, POO, O05, 00 
0,994,006 

19420 DATAOOO, 0946,014,000,112,02 
8,000,054, 056, 000,028,112,000,01 
aa bm am be 

190430 DATA2Z5SS,112,000,014,0546, 00 
0,026,028, 000,0546,014,000,112,00 
6,000, 094 


10440 DATAOOS, 000,096, 000,000, 00 
0,000,000, 000,000,000, 000,000, On 
2,000, 000 
10450 DATAZSS, 255, 224,128,000, 02 
4,128, 000, 004, 255, 255, 2246, 000, 00 
0,018,000 
10460 DATAOO0, 009, 240,000,009,14 
4,000,009, 144,000,018, 159, 255, 22 
46,128,000 
10470 DATAOQO4, 128,000,024,158,12 
7,224,146, 064,000, 146,064,000,14 
6,064, 000 
10480 DATA14S, 032,000,145,031,25 
3, 144,126,001, 144,096,001, 240,03 
1 255, 000 
10490 DATAQOO, 000,000,000, 000, 00 
0, 000,000,000, 000,000, 000,000, 00 
Oo, O00, O00 
19500 DATAOOO, 000,000,000, 000, 00 
0,000,000, 000, 000,000,000,000, 00 
0,000, 000 
10510 DATAO00, 015, 255, 240,065, 25 
5,252, 252,000, 063, 240,000,015, 24 
0,000,015 
10520 DATAZ4O, 000,015, 240,000, 01 
Sage , 000,063 063, 255, 252, 015, 25 
Fee io) 


= T Ano = 000,015,00 


O00, OC 






















oO, ve 

oO, O00, ooo 9 

10580 DATA00O, CH, 

0,000,000, G00, CORE 

0,000, 000 

10590 DATAQDOO, 243 

ig ee ds useuee cre. Py, 

0,000,015 

19600 DATAZ40, 000,015, 240,000,001 

a, 240, pe 015,240, 000,015,240, 00 
OD aes 

raat Re mecnanoniauosd00s00 

0,000,000, 000, 000,000, 000,000, 00 

O,000, 000 


10620 DATAOOD, 00,000,000, 000, 00 


0,000,000, 000,000,000, 000,000, 00 

0,000, 000 

10650 DATAOOO, O15, 255, 240,065, 25 

Siig toe I ona O00,015,25 

§,255, 255 

pate DATAZSS, 255, 255, 240,000, 00 
257,000, 000,063, 255, 240,015,235 

5’ 240° 2o 

104650 DATAZ4O, 000,015, 240,000,001 

5, 240,000,015, 240,000,015, 240,00 

0,015, 240 

19460 DATAOOO, 015, 240,000,015, 25 

2,000, 063,063, 255, 255,015, 255, 25 

5,000, 000 


O00, 0007, 000,06 










Ye ee i i a i i i i in i i i on on ne ne a 





19670 DATAQ1S, 000,000,015, 000, 00 
0,015,000, 000, O15, 000,000,015,00 
Oo,000,015 

194680 DATAOOO, 000,015,000, 000,01 


*§, 000,000,015, 000,000,015, 000,00 


0,015,255 
106970 DATAQ00, 000, 000, 000, 000, 00 
0,000,000, 000, O12, 195,048, O51,00 
0,204, 204 


10700 SATAUZOOL O40: 170.01@,19 


4, 170,1351,051,170, 204, 192,170,006 
3,948,040 ' 
10710 DATAO12, 194,170,131,056,11 
9,172,206, 271,179,058, 170, 172,19 
4,179,131 
10720 DATAO4E, 
1,045, 255,012, 
o,012,000 
10730 DATAOOD4, 000,016,040,000,04 
O,168,000,042,008,016,008, 040,05 
2,040,000 
19740 DATAOOO, 160,000,076, 032, 
O,000,000,005, 136,192,032, 000, me 
6,160,000 

10750 DATAOQ10, 224,130,011,140,00 
4,910,032, 193,008, 000, 008,000,00 
1,000,000 

10760 DATAONOO, 195,000, 160,000,164 
8,060, 048,060, 168, 000,042,03546,01 
2 O24, Ooo 

10770 DATAD06, 000,096,001,000,12 
8,001,000, 128,000,129,000,000,12 
9,000, 000 

19780 DATAOSS, 000,000,066, 000,00 
0,036,000,000,036,000,007, 255, 22 
4,928,000 

10790 DATAOSS6, 046, 


255,012,194,170,12 
174,170,131,048,15 


255,012,028, 00 


0,056, 007, 255, 224,000,024, 000, 00 


, 126, 000 
10800 DATAQDOO, O24, 000, 
oO, ood, 024,000,007, 255, 
5,255,000 
19810 DATAOOD, 000,000,000, 000,00 
O, 000,000,000, 000, 000,000, 0007, 00 
0, 000, O00 
10820 DATAOODO, 000,000,000, 000,00 
0,000, 000, 000,000,000, 000,000, 00 
0,000, 060 
190830 DATAOQOO, 000,126,000, 000, 25 
3,000, 000, 255,000,003, 255, 192,00 
6,000, 196 
LOB40 DATAQOS, 255,192,000, 255,00 
0,000, 255, 000, 000, 126,000,000,04 
0,000, 000 
10645 REM 
10650 REM —=—- MAZE DATA —-=- 
10855 REM 
1OB60 DATAS, 12,1, 12,7,12,5, 


000, 126,00 
224, 755,25 


LiSey Ely 


37,10 


10875 DATAIL2, 
7,8 


13,9,14,15,11,10,4, 


10880 DATAI4,3,14,3,10,6,7,9,6,3 
10885 DATA1O,12,2,12,7,5,9,6,5,9 
10890 DATAI4,3,12,11,12,9,14,13, 


5,3 
10895 DATA14,5,3,4,3,14,3,6,13,1 
10900 DATAG, 13,9,12,5,3,12,9,5,9 
10905 DATA4,3,6,7,5,5,3,6,5,3 
10910 REM 


10915 REM -=- SHADE DATA -=- 
10920 REM 

10925 DATAIL,15,12,11,0 

10930 REM 

10935 REM —=— MACHINE CODE ROUTI 
Ee -=- 


10940 REM 
10745 DATAIZO, 169,192,141, 
69,153,141, 20, 3,88, 94, wee 208 
10950 DATA4, 198, 2, 240,3, 76,49, 23 
4, 173, 255, 3, 123, 2, 32,35, 192 
10955 DATA74, 49,224, 162,0,138,74 
, 168, 189, 188,2,41,127,240,110,198 
o 

10960 DATA188, 2, 48, 51,153, 252,25 


gegd 


4,0, 208, 208,9, 173, 14, 208, 25, 164 
10965 DATA192,141,16,208, 189,90 
221, 228,2, 144,20, 138,74,176,8 


iv?) 


Lo?7O DATAI3,16,208,57,164, 









o "cooo00"so0000 


UND / 

11045 REM “ TO MAKE ROOM FOR SPR 
ITE / 

11050 REM /¢ DATA. TO AVOID CRASH 
ING / : 

11055 REM / PLEASE SAVE IT *BEFO 
RE* / 

11060 REM /¢ YOU 2RUNS? IT. THANKS 


240,8,189,189,2,9,128,157,188,2 

10975 DATAIZE, 252,208,210, 76,157 
V1 9S ae tae y coe, eee, hy 20k 1a 

7,0 

1oO9SR0O DAaATAB IS ; O11 - ele eh ; ed : dey 

,14,208,57,172,192,141, 15, 208, 16 

Gy ao 


4 
109BS DATAZ2Z1,208,2,176, 20,128, 7 


(146732, 64,128, 254, 255,251,247 
11000 DATAZS9, 223,1971,127,13,15, 
So hy, Boy 29S, Oy Oy eos 
11005 REM 
11010 REM —=- TUNE DATA —=- 
11015 REM 

11020 DATAS!, 97, 57,172, 51997, oe 
(2g S40 7oyS0 126,45, 02,51, 97 


4,176,8,173,16, 208, 57,164,192,20 126,34,75,32, 74 Dir 

8 11025 DATA2S, 214, 25,177,238, 214 11045 REM 

10990 DATA, 189,188,2,41,127,197 11030 REM 11070 REM —=- THAT'S ALL FOLKS! 
,188, 2,199, 252, 208, 204, 2352, 224, | 11035 REM,/ PLEASE NOTE!! THIS G = 

é AME / 11075 REM 


, ae tt ne en ne 
, ie ww oe ee et ee 


10995 DATAZOS, 131,976, 254,1,2,4,F 11046 REM /“ MOVES THE MEMORY ARO READY 





ATARI 


Don’t dither but slither hither for Slither Sam. It’s time for a little fruit picking. Sam’s hungry for 
points and gets them by grabbing the fruit. But the race is onto beat the clock before time’s up. 
It’s.a fairly straightforward listing and fun to play. It'll make you want to play it again, Sam. 


1 TRAP 30000:REM GOTO 30000 ON ERKOR 
90 REM HHEREHHHKRHEHHHHRHHRHEHRHER ARE 

91 REM * ¥ 

92 REM * SLITHER SAM 
SS) hei = 
a4 TEM BY 
95 REM * 

96 REM * 

97 REM * 


OG REN HEHEHE R EHH HHH HEHE RHHH HHH 


REM SET UP VARIABLES | 
a CO=0: G1=1 2 Q2=2 1 Q3=3 20444 1 Q5=5 1 QE=6 1 Q7=7 1 QB=B 2 G9=9 : QLO-10 :QLIA11:QL2-222Q hot 
3:G14=14 : 

105 NY 1=Q8 :MY2=Q14 : HI=QO :XA=Q10 : YA=Q10 : WHERE=53252 

110 GOTO 2000:REM INITIALIZATION 

120 FCSITION G0,22:? "HI SCORE:0 LEVEL:O":REM 21 SFACES 

130 GCTO 2500:REM SELECT LEVEL 

40C FOSITION GO,Q@0:? "SCORE:0 TIME:0 Lisshis “BROWS SCA 

405 POSITION 37,22:? LEVEL:POSITION @6,@0:? SC 

ALOVFOSITION QiL, GPs? “HPPNTPLY brit by” 

420 X=55:Y=185:POKE PLY,Y:POKE PLL,8:POKE PLX ,X:PCKE PDR,D1:REM SET PCSITICN OF 
FLAYER 0 


RANJEEV SEHDEV 1985 





+e 
+ 
# 
ro 
+ 
+# 





425 CF=INT(RND(O)*4)+36:REM TYPE OF FRUIT 

430 CCLOR CO:PLOT XA,YA:REM ERASE FRUIT 

440 XA=(RND(0)*34+2) : YA=RND(0)*14+4:REM NEW POSITION OF FRUIT 

450 COLOR CF:PLOT XA,YA:REM PLOT FRUIT 

499 REM MAIN LOOP 

500 S=PEEK(632):SOUND QO,@0,Q0, 90: POKE 53278 ,1:POKE PLX X:FOKE PLY,Y 

510 IF S=Q7 AND X<190 THEN X=X+Q2: POKE PDR D2: SOUND QO, 125 G12, 98 

520 IF S=Q6 AND X<190 AND Y>75 THEN X=X+Q2:Y=Y-Q2:FOKE POR, D2:SOUND 90,125 012 ag 
B 

5930 IF S=Q11 AND X>54 THEN X=X-Q2:POKE PDR,D1:SOUND Q0,125,(Q12,Q8 

ae IF S=Q3 AND X>54 AND Y<185 THEN X=X-Q2:Y=Y¥+@2:POKE PDR,D1:SOUND @0,125,¢12,¢ 
950 IF S=Q14 AND Y>75 THEN Y=Y-Q2:POKE PDR,D1:SOUND Q0,125,Q12,Q8 

aaa S=Q5 AND X<190 AND Y<185 THEN X=X+Q2:Y=Y+Q2:POKE PDR,D2:SOUND (0,125,¢12, 
Q | 

270 IF 5=Q13 AND Y<185 THEN Y=Y+Q2:POKE PDR,D1:SOUND QO,125,¢12,08 

a IF S=@10 AND X>54 AND Y>75 THEN X=X-Q2:Y=Y-@2:POKE PDR,D1:SOUND G0,125,012,¢ 
5990 IF PEEK(WHERE)<5 AND PEEK(WHERE)>O THEN GOTO 1200 

600 D1=D1+Q8:IF D1>33 THEN D1=Q1:REM NEW FRAME (GOING LEFT) 

610 D2=D2+Q8:IF D2>73 THEN D2=41:REM NEW FRAME (GOING RIGHT) 

620 TFALL=TFALL+Q1:IF TFALL>FALL THEN GOTO 1000:REM DROP ROCK 


630 TIME=TIME+Q1:POSITION 18,Q0:? TIME 

640 IF TIME>998 THEN GOTO 1600:REM GAME OVER 

650 TMIS=TMIS+Q1:IF TMIS>MIS THEN GOTO 1400:REM FIRE MISSILE 

660 FRUIT=FRUIT+Q1:IF FRUIT>ACO THEN FRUIT=0:GOTC 425:REM CHANGE POSITION OF FRU 

ET | 

670 GOTO 500 

399 REM DROP ROCK 

1000 XR=RND(0)*34+Q2: YR=Q3 

1020 FOR I=Q1 TO 17:YR=YR+Q1:COLOR CR:PLOT XR, YR:COLOR CO:PLOT XR,YR-Q1:SOUND QO 
,1,98,Q8 

1030 IF PEEK(WHERE)=Q9 OR PEEK(WHERE)=Q11 THEN COLOR CO:PLOT XR,YR:TFALL=Q0:GOTO 
1500 

1050 IF S=Q11 AND X>54 THEN X=X-Q1:POKE PLX,X:POKE PDR,Q1:REM SLIDE LEFT 

1060 IF S=Q7 AND X<190 THEN X=X+Q1:POKE PLX,X:POKE PDR,41:REM SLIDE RIGHT 

1070 NEXT I:TFALL=Q0:GOTO 450 

1199 REM COLLECTED FRUIT | 

1200 FOR I=Q1 TO 120:SOUND Q0,1,910,Q8:NEXT I 

1210 SC=SC+Q10:POSITION @6,Q0:? SC 

1215 IF SC>EXLI THEN LI=LI+1:EXLI=EXLI+1000:FOR C=1 TO 14:POKE 712,C:NEXT C:POKE 
712 ,0:POSITION 26,00:7 LI 

1220 CA=CA-Q1: POSITION 36 ,Q0:? CA;" "sIF CA<Q1 THEN GOTO 1650 

1240 FRUIT=Q0:GCTO 425:REM NEW FRUIT 

1399 REM FIRE MISSILE 

1400 MX=37:FOR I=Q1 TO 36:MX=MX-Q1:COLOR CM:SOUND QO,I+20,Q10,Q8:PLOT MX ,MY1:PLO 
T MX,MY2 

1430 IF PEEK(WHERE)=Q10 THEN COLOR CO:PLOT Mx MY1:PLOT MX ,MY2:TMIS=9:GOTO 1500 
1440 COLOR CO:PLOT MX,MY1:PLOT Mx,My2 

1450 IF S=Q14 AND Y>75 THEN Y=Y-Q1:POKE PLY, Y:POKE PDR,D1:REM SLIDE UP 

1460 IF S=Q13 AND Y<185 THEN Y=Y+Q1:POKE PLY, Y:POKE PDR, D1:REM SLIDE DOWN 

1470 NEXT I:TMIS=QO0:GOTO 450 

1499 REM LOOSE A LIFE 

1500 FOR S=Q1 TO 255:SOUND QO,S,Q12,Q8:NEXT S:SOUND QO,Q0,00,Q0 

1510 FOR M=yY TO 185:POKE PLY,M:SOUND QO,M+60,Q10,Q8:FOR W=Q1 TO Q5:NEXT W:NEXT M 
1520 FOR M=X TO 55 STEP -1:POKE PLX,M:SOUND QO,M+80,Q10,Q8:FOR W=Q1 TO Q5:NEXT W 
:NEXT M 

1540 LI=LI-Q1:POSITION 26,Q0:? LI:IF LI=QO THEN GOTO 1600 

1550 GOTO 420 





—-— i i ee ee i ee ee 


1599 REM GAME OVER | 

1600 SOUND Q0,Q0,Q0,QO0:POSITION Q0,Q0:? " GAME OVER 

"sFOR W=Q1 TO 300:NEXT W 

1610 IF TIME>998 THEN POSITION Q12,Q0:? " OUT OF TIME":FOR W=Q1 TO 500:NEXT W 
1620 IF SC>HI THEN HI=SC:POSITION 9,22:? HI 

1630 GOTO 2500 . 

1650 SOUND Q0,Q0,Q0,Q0:POSITION Q0,Q0:? " CONGRATULATIONS i 
sFOR W=Q1 TO 200:NEXT W 

1660 BONUS=INT( ( (1000-TIME)*(LEVEL+Q1) )/Q2) 

1670 POSITION Q12,Q1:? " BONUS ";BONUS;" " 

1680 SC=SC+BONUS:FOR W=Q1 TO Q3:FOR S=240 TO 100 STEP -1:SOUND QO,S,Q10,Q8:NEXT 

S:NEXT W:SOUND Q0,Q0,Q90,Q0 

1690 LEVEL=LEVEL+Q1:TIME=Q0:IF LEVEL>Q9 THEN LEVEL=Q9 

1700 GOSUB 2800 

1710 IF SC>EXLI THEN LI=LI+1:EXLI=EXLI+1000:FOR C=1 TO 14:POKE 712,C:NEXT C:POKE 
712.0 


1720 GOTO 400 
1800 END 
1999 REM NEW DISLPAY LIST 
2000 GRAPHICS 0:POKE 755,Q1 
2010 DL=PEEK(560)+256*PEEK(561)+4:REM FIND STARTING OF DISPLAY LIST 
nun sae DL-1,69:REM 1 LINE OF ANTIC MODE 5. (POK.DL-1,68 FOR A LINE OF ANTIC M 
4 
2020 FOR I=2 TO 24:POKE DL+1,4:NEXT I:REM 23 LINES OF ANTIC MODE 4 
2030 POKE 708,54:POKE 709,188:POKE 710,246:POKE 711;8 
| 2069 REM MACHINE CODE TO MOVE CHARACTER STE FROM ROM TO RAM 
| 2070 RESTORE 2090 
2080 DIM ML$(32):FOR I=1 TO 32:READ A:ML$(1I)=CHR$(A):NEXT I:CH=256* (PEEK(106)-8) 
"TX=USR(ADR(ML$) , 57344, CH) 
2090 DATA 104, 104,133,204,104,133,203,104,133,206,104,133,205,162,4 
2100 DATA 160,0,177,203,145, 205,136,208, 249, 230, 204,230,206, 202,208, 240,96 
2109 REM REDEFINE NEW CHARACTERS 
2110 C=2130:RESTORE 4000:QS=128 : QT=207 :GOSUB C:QS=264:QT=335:GOSUB C:QS=352:QT=3 
91:GOSUB C : 
2120 QS=400:QT=439 :GOSUB C:QS=8:QT=63:GOSUB C:GOTO 2140 
0130 FOR I=CH+QS TO CH+QT:READ A:POKE I,A:NEXT I:RETURN 
2140 POKE 756,CH/256 
2149 REM TITLE PAGE 
2150 COLOR 33:PLOT 7,5:DRAWTO 31,5:DRAWTO 31,13:DRAWTO 7,13:DRAWTO 7,4 
2160 POSITION 14,8:? "SLITHER SAM":POSITION 12,10:7 "R SEHDEV 1985" 
2190 REM HREM KHHHHHEHHRHHHHHHERREHREE 
2191 REM THE FOLLOWING VBLANK 
2192 REM ROUTINE AND DATA LINES 










2193 REM 4200,4300 WERE OBTAINED pe 

2194 REM FROM Pa, 

2195 REM COMPUTE! S FIRST BOOK OF f Fhe yy, aye 

2196 REM ATARI GRAPHICS BF 50 Neg, "tere 

9197 REM HEHEHE HEHEHE KHHHH HEHEHE # | AGH >, wt 
2199 REM SET UP VBLANK tr. P prs “84 F) ¥vy, oa 


tel 
Lara. 
5 
; } 
uF 


2200 RESTORE 4200:FOR I=1536 TO 1706:READ a:Poke /APons-709 4a iykxT~1+P0 f Fo9" 
ae "CE A an. —  § 


188 _——— ~, /E CX, 
Pie 2% ,% 


ee i= 


< 


2210 FOR I=1774 TO 1787:POKE I,0:NEXT I See Ae A 
a . 4 ot F} 


2220 PM=PEEK(106)-16: PMB=PM*256 

2230 FOR I=PMB+1023 TO PMB+2047:POKE I,0:NEXT I:RE 
2240 DB=PMB+1:REM LOCATION FOR FIRST FRAME 

2250 FOR J=O TO 9:REM 10 FRAMES FOR PLAYER O 

2255 REM IN THE FOLLOWING LINE 

2256 REM 8 IS THE PLAYER HEIGHT 

2257 REM 7 IS THE PLAYER HEIGHT-1 


x 








LS ae ae ae 


2260 
2280 
2290 
2300 
2310 
2349 
2350 


2360 
2370 
2380 
2390 
2400 
2499 
2500 
2510 
2520 
2530 
2540 
2550 


2560. 


2799 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
3999 
4000 
4 Oe 
4010 
4,16, 
4020 
4030 


RUN 


000 


FOR K=DB+J*8 TO DB+J*8+7:READ X:POKE K,X:NEXT K:NEXT J 
PLX=53248 : PLY=1780:PLL=1784:POKE 704, 90 

POKE 559,62:POKE 623,1:POKE 1788, PM+4 s POKE 53277,3:POKE 54279, PM 
PDR=1772:POKE 1771, PM 

X=USR(1696) : REM CALL UP VBLANK 

REM DRAW SCREEN 

? " "sREM CLEAR SCREEN 


CO=32 :CB=33 SCM=162:CR=163:CF=37 
COLOR CB:PLOT QO,Q1:DRAWTO QO,21:DRAWTO 39,21:DRAWTO 39,Q1: DRAWTO Q0,Q1 
COLOR CR:PLOT Q1,Q2:DRAWTO 38,Q2:PLOT Q1, 20: DRAWTO 38, 20 

COLOR CM:PLOT 38,MY1:PLOT 38, My2 

GOTO 120 

REM SELECT LEVEL 

D1=1:D2=41 : TIME=Q0 : LI=Q3 : SC=Q0 : EXLI=2000 | 

IF PEEK(53279)=Q5 THEN LEVEL=LEVEL+Q1:IF LEVEL>Q6 THEN LEVEL=Q0 
POSITION Q12,Q0:? "SELECT LEVEL ";LEVEL:FOR W=Q1 TO 20:NEXT W 

POSITION Q12,Q1:? " PRESS START " 

GOSUB 2800:REM LEVEL DIFFICULTY 

IF PEEK(53279)=Q6 OR PEEK(644)=Q0 THEN GOTO 400 
GOTO 2510 

REM LEVEL DIFFICULTY 

IF LEVEL=QO THEN FALL=45:ACO=100:MIS=121:CA=30 
IF LEVEL=Q1 THEN FALL=40:ACO=100:MIS=111:CA=30 
IF LEVEL=Q2 THEN FALL=35:ACO=90:MIS=101 :CA=30 

IF LEVEL=Q3 THEN FALL=45:ACO=80:MIS=85 :CA=25 

IF LEVEL=Q4 THEN FALL=45:ACO=70:MIS=75 :CA=25 

IF LEVEL=Q5 THEN FALL=45:ACO=55 :MIS=70:CA=25 

IF LEVEL=Q6 THEN FALL=40:ACO=50:MIS=55 :CA=25 

IF LEVEL=Q7 THEN FALL=30:ACO=40:MIS=45 :CA=20 

IF LEVEL=Q8 THEN FALL=20:ACO=30:MIS=30 :CA=20 

IF LEVEL=Q9 THEN FALL=10:ACO=20:MIS=30:CA=15 
POKE 77,0:REM PREVENT SCREEN COLOUR FROM CYCLING 
RETURN 

REM DATA FOR NEW CHARACTERS 

DATA 0,84,68,68,68,68,84,0,0,16,80,16,16,16,84,0,0,84,68,4,84,64,84,0,0,84, 
4,68,84,0 

DATA. Oe 68, 68,68,84,4,4,0,0,84, 64, 84,4,68,84,0,0,84,64,84,68,68,84,0,0,84,4, 
T6eT6:, 0 

DATA 0 ,84,68,16,68,68,84,0,0,84,68,84,4,4,84,0 

DATA 0.84.68.68,84.68.68.0.0,84.68.80,68, 68, 84,0,0,84,68,64,64,68,84,0,0, 80 





.68,68,68,68, 80,0 


4040 


DATA 0,84,64,84,64,64,84,0,0,84,64,64,84,64,64,0,0,84,64,64,68,68,84,0,0,68 


,68,84,68,68,68,0,0,84,16,16,16 


4050 


DATA 16,84,0,0,64,64,64,64,64,84,0,0,68,84,84,68,68,68,0,0,68,84,84,84,68,6 


8,0,0,84,68 ie. 68, 68, 84 SOO es 84 


4060 


DATA 68, 68, 84, 64, 64, 0, 0, 84 ,68,68,80,68,68,0,0,84,64,84,4,4, 84,0, 0, 84,16,16, 


16 16, 15,0,0,6¢ 638.65 605 68 84,0 


4070 
4080 

118, 
4090 


DATA 0, 68, 68, 68 GB, ic 16 20 

DATA 239, 239 "239, 170, 254 feet O00. P/O l255. 255 0. Oe Or 20, HRMS Poa eal iti’ Falk 
118:20,0 

DATA 24, 16,16,84,684,84 ,16,0,48,8,8,42 42,42, 8,0,0,0,40,170,170,170,170,40,1 


Sic debts ovules lainisjsinal 6) 


4199 
4200 
4210 


4220. 


4230 
4240 
4250 


REM DATA FOR VBLANK 
DATA 162,3,189,244,6,240,89,56, 221,240,6,240,83,141,254,6,106,141 

DATA 255,6,142,253,6,24, 169, 0,109, 253,6, 24,109, 252,6,133, 204,133 

DATA 206,189,240,6,133, 203,173, 254,6,133, 205,189, 248, 6,170,232, 46,255 
DATA 6,144,16,168,177,203,145,205, 169,0,145, 203, 136, 202,208,244,76,87 | 


DATA 6,160,0,177,203,145,205,169,0,145, 203, 200,202, 208, 244,174,253,6 


DATA 173,254,6,157,240,6,189, 236, 6,240, 48,133, 203, 24,138,141, 253,6 


4260 DATA 109, 235,6,133,204,24,173,253,6,109,252,6,133,206,189,240,6, 19% 
4270 DATA 205,189,248 ,6,170,160,0,177, 203,145,205, 200,202,208, 248,174,253,6 
4280 DATA 169,0,157,236,6,202,48,3,76,2,6,76,98,228,0,0,104, 169 

4290 DATA 7,162,6,160,0,32,92,228,96 

4309 REM DATA FOR THE 10 FRAMES FOR PLAYER 0 
4310 DATA 48,16,56,124,186,72,132,130 

4320 DATA 48,16,56,56,120,172,72,68 

4330 DATA 48,16,56,56,120,40, 40,16 

4340 DATA 48,16,56,124,186,56,16,40 

4350 DATA 48,16,56,56,124,56,72,72 

4360 DATA 12,8,28,62,93,18,33,65 

4370 DATA 12,8,28,28,30,53,18, 34 

A380 DATA 12,8,28,28,30,20,20,8 

A390 DATA 12,8,28,62,93,28,8,20 

A400 DATA 12,8,28,28,62,28,18,18 

30000 POKE 53277,0:GRAPHICS 0:7 “ERROR ";PEEK(195);" IN FOLLOWING LINE ":LIST PE 
EK (186 )+256* PEEK(187) 
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AUTHORISATION 


SLASSIBICATION § 3) “SERIAL NUMBER 217 
lauruon A. GARDEN 


}CINTTIALS) 
INVESTIGATING DROID | AUTHORISATION CODIs 


BG Rep {44 ZACK 
Sion TOUCHEO WN 


Scattered throughout the Spectrum Galaxy the planet’s surface and your moon craft. 
there are eight moonbases waiting for food Belowis a panel showing score, high score 
supplies. Your mission, should you choose tc and lives left. 
accept, is to, see they get through. Floating above the planet are fuel pods 

To achieve this you must land your which will boost your supplies if you can pick 
spacecraft at the moon’s base, avoiding the them up. Also on the plant are stranded — 
asteroids by dodging the rocks or blasting astronauts which will gain you bonus points 
them away with your missiles. if you can rescue them. 


The screen’s main display is taken up with Prepare for touchdown... 




























86 Jr Pa 1 REM “touchdown” azwd THEN GO. SUB 200: REM *#*#*ch 
me PORE 23658, 0 eck for crease 


io GO SUR 2000: REM *##*title** OS PRINT AT O.fur INE 4:° "3 


¥ | TE RND>.S THEN LET fuefuel: IF 
ac GC) SUE 1500: REM **#*in itial fact THEM Peewee tbe * ™s Le 


1 eke ee JT fused 


“9 GO SUB 1O00: REP ##e Scr een* 7 IF ATTR (Ca, b)=4 OR ATTR: Ca, 
hs belied OR Atte tebe) 4 Tepe Le. 
40 REM x¥*main Loop*** ey score=scoretiog: LET fuel=fuel 
as TE br=a AND bé=29 THEN FRI jae BRING St oor (2 LET fu=2 
NT AT a,b: INK 6;" " ; 
B0-GO SUE 100: REM #**landing 7% LET st=STR& score: PRINT AT 


ace ee 20, 67-LEN s%; FAP ER 4:score 
se G0 SUE 130: REM #**#movement 76 IF score?=(800081) THEN LE 
EEK T Life=lifetis LET i=itis FOR T= 
Sera seo tae rn) REN heroic 1 TO life: PRINT AT 20, 25+7T; rays 
eee mee dg: INK 23" “s NEA oF eet 


Pet 


4o Te aeei OR a=x2 OR a=Ke CFE 90 ET fuel=fuel-i: PLOT ITNVE 





ON 
RSE isafuel+31,.: DRAW INVERSE i 133 IF be=1 @ND (CINKEY$="4° OR 
20,5: PLOT INE O:163,0; DRAW I movez6) THEN LET be-@: LET move 
NE Of0,7: IF fuel=O THEN GC TO eG: PRINT &T a,O: INE 62" "sat 
SOC) a,3Os; INE 43" ": GO TO i4a 
Gi IF fuel<25 THEN BEEP .01,2 iS IF be—2 AND (CINKEYS="6" OR 
Ss PRINT AT 21,0: INE 4; PAPER oO moves) THEN LET be29: LET dis= 
| RLASE, Wa ele” O: LET move=s6: PRINT Ar avis" 1 
a3 IF asié AND ben+i THEN GO SAT a,29: INK 6:" ": GO TO 
TRS) sere 1 40 
S46 IF pad?@ THEN FRINT AT 1?, L2=7 ITF b?O AND (CINEEYS$="4" OF m 
Tp me as te LET man=manncis ovezre) THEN LET beb-i:t LET move 
IF man<O THEN PRINT AT 17,03" =G: FRINT AT a,b: INE 6&3" 

He LET man30 " f 
7 ITF pad? AND a=1é6 AND b+1=m 140 [IF b=29 AND CINKEYS="7" OF 
an THEN LET score=scoret2S: PRI . mave=7) THEN LET be-1: LET dis= 
NT AT 1?.mans"  "s LET man=20 i: LET move=7: PRINT AT a,29: IN 

99 IF pad?8@ THEN GO SUB 2320 ge SO; INR ee 
a9 IF ATTR (a, b)=5 OR ATTR (a, ee TO 16 
b+ijso OR ATTR Ca, bt2)eo THEN 6 L4i IF bei AND (INKEYS="7" OF 
Peer | naver Sen LET b=-or-LeT move 
70 GO TO 40 =J: PRINT AT a,30; INK 63" "SA 
100 REM ###1 1 anding pacd#®** | T a.0: INE ae" le 
1OG LET nenm-is IF m=. THEN PR 145 IF be-2 OND (CINKEVS="7" OR 
INT @T L7yaigs INE 7s" "SAT 18,5 move=7) THEN LET b=O: LET digs=0 
I, ENE Ska oe REOLIRM « LET move=7: FRINT AT a, 303! 
LO7 IF n=3O THEN FRINT AT 17,2 VAT acd; INK 62" "2 GO TO 1 
Birt Dis seas be eg rete) ENG ln ote peters 
sl outa rana eal Rea 145 IF bi 29 AND CINKEY$="7" OR 
Pe i  uleeeet SE OFT Ra moves?) THEN LET beb+i: LET mov 
en re ee ees te e=7: PRINT AT a,b-13; INE 63" 
inke" s RETURN ; 

OOH al ag oI Ae ga ee 150 IF (INKEY$="6" OR move=a) A 
de pe eet act eee ND dis=0 THEN LET a=ari: LET mo 
eee rs Coe ess vee@: PRINT AT avi,bg" "SAT a, 

ie LE pee VN PRINT At L? , a Ins TNE 43" il 
fe ee ee iSi IF asi? THEN GO TO Soo 
ae es (A 153 IF aro AND dis=0 AND (CINKEY 

113 IF n=—-i THEN FPRIANIT AT i? 4 () ga" O" CR moyves?) THEN LET aza-l1 
Se ee ee ENE > LET move=9: PRINT AT a,b; INE 


ink : it i is RE TURN fy a if il AT aki ; Ky " 7 i 


115 IF n=-2 THEN PRINT AT 17,0 “154 IF INKEY$="0" AND mis20 THE 
ee ok neAT 10,0; INR N GO SUR 230 
ee ne RETURN iSS IF fire=1 THEN GG SUB az2 
117 IF ne~2 THEN PRINT AT 17,0 iS6 IF INKEY$<>"" OR movec?0 TH 
INE 73" NSAT 18,0; INK ink EN) REP) caer 20 
oe ORETURTY 157 RETURN 
Li? TF ne-4 THEN PRINT AT 17,0 140 REP ¥*#¢acteroidst## 
s INE 75" "SAT 18,03 INK inks” 6S PRINT AT xi.O: INK @ra%: LE 
ec hiemaie hy T a$=ah((ast+i) TO B2)+ab(i TO a 
dete LE nS=—S HEB Ihe s Ae 7,0 ext) 
ee eae cs este T 170 PRINT AT x2,O; INK 23b%: LE 
si: ea T bé=b$((ast+1) TO S2Z)+beii TO a 
Peete Phi ae “lege ihe so 5 
BET REGEN UES aE | 175 PRINT AT 23,07 INE S:e#: LE 
‘ T efecSl¢(astt+i) TO SE)+c#(i TO a 
125 RETURN st ) 
L320 REM *###moavement***# 180 PRINT AT «4,05 INE 2ad%: Le 
12, TE be=O AND CINKEYS="46" OF m T d#e<dti(ast+1) TO S2e+cdstl Tl a 
avexS) THEN LET be-1: LET dis=1 ext} 
> LET move=4: PRINT AT a,Os INE 1a RETURN 
oe! Mince cette te ele e Eig eG “00 REPL #eecheck for crasht** 
2 a 8 209 IF SCREENS (a,b})<>" “ THEN 


"Ai 
AF 


"a Un 








LUNN 


0000 

GO FO E00 

LG PON ce ted i el ns Sl tbs Se Ge rea a bed ea | 
MO Stet) TGe aes 

OS esas om Mae meter sae TE 
ee eG oa a a 1 

SOc ele Aiih ter ooi=a GR ATR ta. 
b+1l)=3 DR ATTR (Ca,0t2)=9 THEN & 
le eee els 

fii RE TURN 

mae REM ##*# alien shipx*x** 

22) “IP s2b AND s2cs0 THEN LEFF 
s2e-Ssetl: FRINT AL si,s2-is INE. 
Wee tee gh lees eg ernie eee ceeeie re EE 


(mes Jer? Stet BAM ee THER © LE? 
geeee-1l: PRINT -AT $1,823 INK S3” 
Snel rcs wae eeeteenin Pa eke ate. ie wee tte 

LIRA 

fe ae Sen Seo. eee TRIER fest 

gsleeiti:s PRINT AT si,se3 INE oy 
eee aa eso fcnad geet aa : Fe Ee TURN 

c24+ IF silea AND sleo THEN LET 
eleai-i: FRINT AT si, pees ETS weeten | 

PN Seeley tee "a KEPURN 

sabia RES T LIP 

ceo REM ##* flere mi ssilex** 

ee ee kel eae | tess BET oT 
eees ds LET mi ssmi s-1 

ee le Ae ascketes: Le mises ees IN 

RAINY AT om 1 re ae gms | Pl ee ee 
Oe RETURN | 

Bo ee | tad iia Re J ; CAE. a 

te Ae ih ee eM nis ee 2 AND mis 
ox AND mis ce4 AND (p rads ea AND mi 
ooeio THEN. -REcURN 

nt gee Sis Elen eee oi... tie: F a par bs | 
EN RETURN 

poet of SR eews fin. mati) * es i 
HEN PRINT AT mi, m+ hae nike : es fe i 
i Sie ees Peery fea Mit giles RS 

BEEP .1,°25:2 LET score=score+so 
Aye) ig PRs a Peg pd =n 1 

256 IF mi#xi THEN LET at(me+1 
hit meta J. 

eae ube eee RBM “GET be Cmet+1 
HES SF A a Ze 

foe inves rien LET cm tne 
TO m2+3)= 

209 IF mi=x4 THEN LET d#(me+l 
RE OiTieeoeseed ee 

240 fF mile#e1 THEN LET si=i16: L 
Elesee see ie t Becare=secarerkio; FRI 
NT GAT mi,m@ris" “2 RETURN 

abd RET LURN . 

[oO REM *###next planat#e** 

foo ko pt Tosas> FOR welo TO dl 
4: BEEP .1,x: NEXT «ws PAUSE os WN 
exe Fo) FaUdSe 2 BEER .2@.10: BEEF 


ik Ed 


sey FOR f=fuel TO Oo STEP <1: ne 
OY INVERSE isf+S2.,1: DRAW INVE 
een ere ere ie aE be eng) 1,f-60: LET sc 





oeerzscoretlos:s LET s$S7TRS score: 
PRINT Ad 20, 6-eeM ef eseP AP ein mS 
core 
oo “BER 7 | 
260) OR oh =n dels ole Oe ree nile wei let 
te Eee "es BEEP OL, —-20 
PAUSE %: NEXT ft: FRINT AT 16,2 
Fs ENE ty De ei) eels eet 
PRINT AT 126,30: INK 63” eee SETS Es 
el Se ae el ee 
265 LET pad=padtis IF pad=8 THE 
Al LE nent ee Sita LET eu 


OCs Seal Meenas, Gye) Races erie Lhe 


277 LE tnk=1ektls IF onk=8 THE 
NM LET ink=/ 

ef? IF (pad-1)/8=INT (t(pad-i?/s 
) THEN LET ink=i:t TF padseiéad THE 
NM LET ast=asttl 

279 (30 SUB ISife 

ee GO TO 3O 

S09 REP #2@#)} ose a Llifexx* 

Gl Ree pe eee eerie Poh. ae Es 
unt NF. Oe AE eae Wo SES) es 
Yh Ley eed ee SF ae opie, MERE” 

203 “LET Vite@e=l¢Fe-Le IF Lifes0 
THEN GO TO 400 

eat OR “fa “bee Pore aoe 
Lo SRR Mie fle ieee eeteacl) ote Teter oo 
he Pe pa ee fam ta es 

215 GO SUB L3B40 

eee (a3 Tel 0 

400 KEM #e#qane Oversee 

40> PRINT AT 1oa,i2: [NE 73 "GAME 

VER: FOR £28 TH STERF -is IF 

acorecntt) THER Seabee 1h 10 

405 NEXT f: GO TO 430 

A CS « FOR PHee Te a SPER 2s 

PRINT AT £, 88 NR 2s FPArPER 723 F 
LASH J: "CONGRATULATIONS! "s NEXT 
Pee fei Pile eee ees FREAD oA 
T Tote iN 9s “Rape Reaes sit LASh, 15” 
CONGRATULATIONS! ": NEXT fs -AUSE 

1G) 

445 IF score?zht(1l) THEN FOR f=5 
THO 2 STEP .-1r bet Riflehtit-1l)s 
LEY nbiftientif—io: NEAT fs LET h 

(lideecore: LET x=i: 60 TO 440 
420 IF score:zh¢2) THEN FOR f= 
Tha oS Gee eee eit Ds 

LET m#tfoysnt(f-1)2 NEXT fs LET hk 

(Prescore: LET x=2 
4°35 LF scorerh(3) THEN FOR fT=2 
TO. STEP -i: LET hOfieh (fed): 

[fs Z T nétfoené(f—-L): NEXT f: LET h 

(=)escore: LET x=S 
ARO te scoresrres IFEN LET mato 

yeh (4): LET nm& (So ené¢4):1 LET bh l4 
jesgcore: LET x=4 
425 IF score2h(S) THEN LET hes 


= Ea: 


Jesccrore: LET wes 


0 a 0 

440 INFUT “YOU HAVE ONE OF THE 
SOE CP Ee SCORES.ZENTER YOUR Nea 
ME CMA. Scheie rita (2) 

47a ae Leno neta ol OR LEN mtx) 
"BS THEN GO TO 449 . 

430 REM ##*##hi-score tablex*# 
455 PAPER O: BORDER S: INK 7: C 
fee 

460 PRINT AT 2, Gs 
[ee eal wbaea iors) oethoash PL See ROT 
Sl eGhecms Seas Same "Ss BEEF .~O1, 
(iit. Seok wo fe f=24 THEN PRLNT 
lees eee Sees cuehe Neleseens toe Pere Rn eee 
iat pe eaa( cs ler mtg Ot AL eo ecu mel |B a 
Shercie MEGA pane rrantel Swf | gate = 
470 PRINT AT 4,67 INK -63 "RANE"; 
At 4,243 SNE Se naMe sab 4, 23 "So 
CHRES 

hfe Pes. (ena sede oreles. “et Fac A Pee 
Peet cuss » Mee af gece eye ab Ne hee | te 
DR Pee nes foe te rs ee NS 
Pate Wales Set eel: © oh 

eer he: fd “bales RP AEER 2s SME, 
ret chee testa) toe, Etc ania IN You hited © ape bolite ey 
NEW GAME": FAUSE O: 60 SUB 1510 
A490 (SC) TO 30 

LQOO0O REM #*#*#¢ecreeanke# 

1010 PAFER O: BORDER 6: INK Oo: C 
ots. 

LG il | ey jeer Uo fe 1) [ce Po cee co oe Ht 2 
Oe a pea pee 

re eh a Re 

aor a reidNl © flue meri la wre paebpe sepa ty 
vie easers |e A ee ier Mies trees Glo 
Sil. «ca eeeele Eieibircer: Eat woo 

1025 PRINT AT 20.0: FPARFER 46: "000 
CO td Oye ee Oitr & LY teats 
TAS Scores (ceieiiesolna hts FRI 
NYT AT 20,6-LEN st; FPAFER S:score 
Re es, oe eee Peeler «ds hy CE) 
fos0 FOR “fst Pe sew tes RINT AT 2 
Ope tT a LNs eee esos OS. SEX 
i fe. PRINT Ad See SePER Os INE 
re EM a Eh | So) LE coh ES S|) Po ei A a | Te es ee 
A RW oO s: ORAS ieee: OR fs 
TO fuel: PLOT f+3i1,1: DRAW O,5: 
MEST F 

Poe BONS Alea. oe eee te TiN 
Eber gl oats Reed 1, Os 
INK Fnks 





"TOUCHDOWN HAL. 


HM 


Lo40 RETURN 

iw00 REM #**#inmitialisex** 

Poe coals ritGc) os Mont mide \ateredyes: ult 

f=) TASS ee oh hes SET nb! 

Pale eee Sr Ea a Taree ice} 

lSL0- LET score=or LET life=S: LE 

Spe ae doe. Ceres ae bee ise Ss baie Le 

EP s2=03 LET man=20: LET pé="ALT 

BIR VEGA HOTH NEXXONZETON ENDOR 
HLPRUSBESE TN Ss Gel peis Let ink 


1512 RESTORE 3OoiO4+¢0CINT (CRND#8) > 

#10) 

ISIS READ 2%: LET at=2z%: READ =: 
MES Sls 

Lo2O KEAD 2%: LET b#@=2¢: READ z: 
LET siz | j 

1520 READ 2%: LET c#=z%: READ =z: 
LEP x 32 

JS35 READ 2%: LET d@=2%: READ 3 
LET “x4=¢ 

bos? LEY nises 

1340 LET a=O: LET b=14: LET fuel 

{Sle LET fire=0: LET moverd: LE 

T n=32: LET fueSis LET dis=0 


q 


a 
En 


EO4] IF padeS THEN LET man=20 


1645 RETURN 
SOOO REP #£#ebh it | eee 
2010 FAFPER OG: BORDER GO: INK ¥: C 


iad 


an tak 


se PN BA a | Oy each cet GDS 8s Rees Gl Sa a a 
ATG Ri RI! © Le LS RICE cco mtncee tee Fi Clg famed AC ee 2 SIE 
Pe ely (Sinclar "i? eeisees) eeaNclox ber, lee “MES ad 


M1 


8020 RESTORE =O0O: FOR f=1 TO 19 


- READ Z$: FOR x=O TO 7: READ as 
Ba | oe Sls ed ee ea e-file Bd Eel eel Sa Nias indie ea 
Ge NEXT “2: PRINT ewes DK cern 
TT CRNDe oer tae NES of 

20 PR ENY (elo eres Gs coe cts 

Odo LET ates" by Andrew G 
arden 
USO) RORE Re ee cee geet 5 ieiclenen te a pobs 
PAGE Gr) — dSaerse “abil eereras Von) AEE 
merge Rec ie ey oe! iis lll fe bro Se ee Ih [sea 
apt TO Tl SNe fe -FR Ee ee 


Mm il 
ae f 


TF 


20Go FRCUMT ah er Crete Disiiee stirs wie aye 
U NEED INSTRUCTIONS? Y/N)": IF 
INEEY$="¥" THEN GO TO 2o70 
O60 TF INKEY$="N" THEN RETURN 
2JO9 GO TO) 2O a5 
2O7] REM ##*#instructions*e#*® 
2OUF 1 (HARPER oie Be Eee Lune feet ale 
i 
2O7S LET at=" TOUCHDOWN++ TOUCHDOW 
N++ TOUCHDOWN" 
2080 RESTORE 4000: FOR f=1 TO i? 
: READ 2%: FOR s=1 TR CEM. ste PR 
INT. AT G40 PAPER Gas NR Ge tee 
Fou/2ZeINT (x/2) THEN LET at=atk { 
1 Serer 
eS PRURAT Ale tite Deg ese eee 
BP i lee? Ee ere all 

PRINT Ao Sie CIN tea ceri 
Mm Of FLASH) 15 URPRESS Aly eRe wees we 
GSE Ole Galoty, Br Pe i eee clea aan 
SB7TCH QUT FOR THE ALIEN CRAFT": F 
BUSE SO: RETURN 


ayo 





ae 


OTe 





SEP #e¢tcdaka for u.cd.q° s#*# 
pists ee 1 i “4 is és + py Jo it ‘ 2 oy ee saa : x, “ae “ : a : 


4 etal 45 a when tet head 
| =e ™F FRR Of ay Ee ES ie: “it lel 2 a eh = fie oc 7 he Ee g 
4h goal Foot c} qe ttl al Bj ote oF H i ? Zi q i isaF i ff steer ast 5 if alte 


9.129, "eo", 224, 254, 255, 240, meth 

Ile Berk ne yee cet 

Rita ade seer Gly estan tug tact ange gat hy 

08,208,090, "e",14, LES, 220, 183, 

Biche aig hem ee gped Dlg tee Wey ae 

,24, 246, 128 

yOu) Garis pee ele va be ey oe rye ige dae h'y 

95, 254, "h", 255, 215, 54,27, 30,15, 1 
pie, 204, 115, 26 

eg ey kn bebe ety eee LL 


: 
DOTA “et ee. See Ler eat oo. 
49,49, 24,"1" ae 944,254, 105, 255 
40,140, Ai “im! er ger ee 126,126, 32, 
0, O, Ey pee Tape 0a 239, 251, 110,60 
24, "0", 56,170,130, 254, 56, 6, AO, 


15 ae ar 9 ES Per es 70S to a = "5 
ahi) 4 ia ig it 1° og ant a wo taal 1 Rote taal cal te tee teed if sta tinal! hall a Wie ul 4 iy te 


ee ey 9 fot dor 
tart ed atin ot terdl 


otra DATA oop ae J fas Pipe beat hcl eg see : = i 
gee ri AS aaa a oc oe 1 O27, eof, £40, 246, 25. 
See hae ce ales Weg ee 1a, Ueeare: ee pei eee soe m4 
Del eee 
4000 REM ###datha far 
A070 DATA Mi eit ON: DELIVER SUPPFL. 
jae Sa A A = | ng ee oo ce CS OND ASE S IN TH 
EP SPECTRUM" "GALAKY. TO DO THIa, ¥ 
GH MUST LAND" a a eae HE BASES Lian 
DING FAD, ", “AVOIDING THE fie as Vi. 
DSi", "YOU HAVE A MISSILE 
Pe “BUT ne Te TS CAN ONLY ee nOen ice 
TEMES". "ON ONE P| ae : 
4070 DATA “YOU CAN GAIN EXTRA FU 
io) Meow ads Baer aa KING WITH ONE OF THE 
ei OATING", “FUEL PODS( ).", "GN FA 
TGHER Sk Tok. LEVELS, YOU GAIN", "ES 
TRA FOT le rS BY RE one HANG", "S5STRONA 
TS 74." BONAR: 4-LEET Pie 
[ne : (HT " oss ae =U =F TRE 
{BR MISE SINCLAIR INTERFACE 2)" 


SOOO BEM ###data for agsteroida#® 


TRScleuceE LOM 





Le | 
SO2Z0O DATA " 


i : 4, 1 
Hf ho6oO6UC«é ri 
4 vy 


a 
hess 


Pay eG) 0) =\o free 





a Chee 


it : es 


“O40 DATA 


i dy it 
am 
H q 


5 be 
O50 DATA 


BOSO DATA 


g fy 


re 
wt} / tt 


to 
mt 
Ts 


in “ j iA. 
FOO DATA 


FRe Fa LE 


yo owe g 


ales 


Hi 


it : A, tt 


id gu it 


yo dents 


al 
i i. ti 
= i Li] 
El 
ti 4 aa Ti 
-_- i ££ 


i 11 


al 








We already know our readers are highly intelligent and have immacculate taste. We know 
that because you buy Computer + Video Games each month. 

But how good a programmer do you think you are? Up to professional standard — or at 
least very near it? If so we want to hear from you. 

Each month we get sack loads of tapes being sent to us. |.D.E.A.’s Centreal spends literally 
hundreds of robot hours going through these listings in search of the best. But what we’re 
really looking for are quality games — and we’re prepared to raid the old C + VG treasure 
chest and pay you for them. 

We get plenty of listing for the Spectrum, Commodore 64 and BBC. But what about Amstrad, 
Atari — or even the Atari ST. Surely somebody out there is programming games on them? 

Okay, so you’re a genius with this real humdiger of a program burning a hole in your tape 
deck or disk drive. What do you do with it? 

Just send it to Computer + Video Games, Program Listings, Priory Court, 30-32 Farringdon 
Lane, London EC1R 3AU. And don’t forget to complete the printed form below and include full 
instructions. You would be surprised how many tapes we get where people don’t tell us what 
computer it’s for. Why not send us your photograph as well. 

Interested? Then get those fingers flying over your keyboard straight 
away. 
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Game instructions: (If not included in the listing].......... 
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Holy juggling joysticks! Add a 1 power punch — 
to your game play by winning a sensational — 
Konix Speedking Joystick. stare a 
Thanks fo Konix we've got] 0.of these 


best-selling hand-held joysticks as prizes i in 
our great Book of Games competition. — 
Right, how do you get in with a chance of - 

- getting your hands wrapped round one of 
4hese joysticks? Simple. Printed. below is © 

: another of C+ VG’s-famous word squares. 

_. Hidden in the jumble of letters are five - 
‘words which are relevant to this Book of © 
Games. All: youhavetodoisfindthem. —__ 

“Send your design to Joystick vessel 
Computer + Video Games, Priory Court, — 
30-32 Farringdon Lane, London C1 R SAU. 

- The closing date is February 16th and the 
_ editor Ss decision isfindl. = = : 
oo bt ed to send the coupon below with | 
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- SPEEDKING COMPETITION = + 


NAME ssserrenernen . sich socustecescocisesseteearveneene — Ee siesescseasenea 23 
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